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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, po- 
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SOALMENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribui- 
dor local, cujo endereço poderá ser facilmente conseguido junto a qual- 
quer jornaleiro de sua cidade. Em São Paulo, os endereços são: rua Briga- 
deiro Tobias, 773, Centro; av. Industrial, 117, Santo André; e no Rio de 
Janeiro: rua da Passagem, 93, Botafogo. 2. POR CARTA — Poderão ser 
solicitados exemplares atrasados também por carta, que deve ser enviada 
para DINAP — Distribuidora Nacional de Publicações — Números Atra- 
sados — Estrada Velha de Osasco, 132, Jardim Teresa — CEP 06000 — 
Osasco — SP. Não envie pagamento antecipado. O atendimento será fei- 
to pelo reembolso postal e o pagamento, incluindo as despesas postais, 
deverá ser efetuado ao se retirar a encomenda na agência do Correio. 3. 
POR TELEX — Utilize o nº (011) 33 670 DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Cama- 
rate — Lisboa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão 
atendidos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, 
além do número da edição. 


COLABORE CONOSCO 


Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
São Paulo — SP. 
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RISCOS E PRÊMIOS 
AVALANCHE asi 


| | . Es q — 
Precisamos de incentivos e prêmios Tas | 


— como bolo e limonada — 
para ir em frente em nossa aventura. 
Mas não relaxe: as serpentes assassinas 
estão sempre à espera de um descuido, 
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Depois de montado, o cenário requer 
apenas algumas modificações para se 
adaptar aos diferentes níveis de dificul- 
dade. No segundo nível, o grande pro- 
blema de Willie consiste nos buracos 
existentes ao longo da encosta. Para 
desenhá-los, colocam-se blocos gráficos 
da cor do céu sobre o perfil da monta- 
nha. As cobras surgem apenas a partir 
do terceiro nível de dificuldade. A roti- 


na que as movimenta será incorporada ROTINAS ENCARREGADAS TE Sn pao eo aja ep 
o DE FORNECER OS PRÉMIOS E ROTINA DE IMPRESSÃO 
E * NÍVEIS DE DIFICULDADE | E DAS FIGURAS 

HE —º  BURACOSE MAIS BURACOS E COMO TESTAR 

10 REM org 58455 o DESENHO DAS COBRAS à O PROGRAMA 


20 REM elb ld a, (57344) 
30 REM ld h1,57272 
40 REM ld b,a 

50 REM inc b 

60 REM ld de,B 

70 REM ab add hl,de 
BO REM djnz ab 

90 REM push hl 
100 REM pop bc 
110 REM ld h1,191 
120 REM ld a,58B 
130 REM call print 
140 REM ld a, (57344) 
150 REM cp O 

160 REM jr z,ed 

170 REM push af 

180 REM call hla 

190 HEM pop af 

200 REM cp 1 

210 REM jr z,ed 

220 REM call enp 

230 HEM ed ret 

240 REM his ld h1,457 
250 REM call hlp 

260 REM 1d h1,401 
270 REM call hlp 

280 REM Id h1l,314 
290 REM call hlp 

300 REM ret 

310 REM hlp ld b,4 
320 REM hla push bc 
330 REM 1d bc,15616 
ld a,45 
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ea OS PRÊMIOS 


O conteúdo do endereço 57344 é co- 
locado no acumulador. Esta posição de 
memória será utilizada para armazenar 
o nível de dificuldade em vigor. O par 
de registros HL recebe a seguir o ende- 
reço inicial dos padrões dos prêmios na 
tabela de dados. O nível de dificuldade 
é transferido do acumulador para o re- 
gistro B, aumentando, então, em uma 
unidade. O par DE recebe o número 8 
e é somado ao par HL. 

O laço rotulado com ad prossegue 
adicionando 8 ao apontador HL até que 
o conteúdo de B se torne zero. Lembre- 
se de que a instrução djnz opera sobre 
o registro B: subtrai uma unidade e sal- 
ta se o conteúdo deste não tiver chega- 
do a zero. Tal processo movimenta o 
apontadordo padrão do prêmio — o par 
de registro HL — pela tabela, até que 
ele aponte para o início do bloco gráfi- 
co adequado ao nível de dificuldade vi- 
gente. Cada bloco é um quadrado de oi- 
to por oito pontos, ocupando, assim, oi- 
to bytes na tabela. 

O resultado dessas adições repetidas 
fica no par de registros HL. Contudo, 
a sub-rotina print precisa dele no par BC 
para imprimir o bloco correspondente. 
A maneira mais fácil e rápida de pro- 
mover a transferência consiste em guar- 
dar o valor de HL na pilha, recuperan- 
do-o em seguida em BC. 

A cor do caractere do prêmio é codi- 
ficada pelo número 58, colocado em A. 
Depois disso, o programa chama a sub- 
rotina print, que desenha o bloco na cor 
apropriada. Essa rotina foi fornecida no 
primeiro artigo da série Avalanche (pá- 
gina 748). 


call print 
ld de,32 
add hl,de 
pop bc 

dinz hlq 
ret 

enp ld h1,457 
call snq 

ld h1,401 
call snq 

lã h1,314 
call snq 
ret 

Benq ld a,4 
ld bc,57232 
enr push af 
ld a,43 
call print 
ld de,32 
add hl,de 
pop af 

dec a 

jr nz,enr 
ret 

print org 58217 





O NÍVEL DE DIFICULDADE 


O conteúdo da posição de memória 
usada para guardar o nível de dificulda- 
de volta para o acumulador. O compu- 
tador verifica inicialmente se ele é igual 
a zero, Em caso afirmativo, a instrução 
jr z,ed salta para o final da rotina, e 
a instrução ret provoca o retorno da 
mesma. 

Se o nível vigente for diferente de ze- 
ro, O processador preserva seu número, 
guardando-o na pilha. A sub-rotina his, 
que desenha os buracos ao longo da en- 
costa, é chamada a seguir. O nível de di- 
ficuldade é então recuperado da pilha e 
comparado a |. Nesse nivel, temos vá- 
rios buracos mas não existe nenhuma 
serpente dentro deles. Assim, se À con- 
tiver 1, a instrução cp | resulta em zero, 
o que ativa o indicador de zeros. A ins- 
trução jr z,ed salta, então, para o final 
da rotina, onde ret provoca o retorno. 

Se o nivel for maior que |, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada. Depois disso, o 
programa termina. 

Quando a rotina principal de controle 
estiver na memória, o processador retor- 
nará a ela. Por enquanto, ele retorna ao 
BASIC. 


OS BURACOS 





A sub-rotina seguinte tem a função 
de cavar buracos ao longo dasencosta. 
Ela começa com o rótulo his, que é cha- 
mado pela rotina principal quando é 
preciso acrescentar os buracos ao cená- 
rio. Três pequenos módulos, com duas 
instruções cada um, compõem essa sub- 
rotina. Eles começam com comandos do 
tipo Id hl, que colocam no par HL o en- 
dereço da tela correspondente à posição 
de impressão do topo de cada buraco. 
Após cada instrução desse tipo, a roti- 
na hip é chamada para colocar os blo- 
cos que formam o buraco sobre o dese- 
nho da encosta, feito pelos programas 
dados no último artigo. | 

A sub-rotina contém três módulos 
porque deve desenhar três buracos, ca- 
da um em uma posição diferente colo- 
cada em HL. Todos eles são feitos da 
mesma maneira. pela sub-rotina hip. 


MAIS BURACOS 





Como cada buraco tem quatro blo- 


cos de profundidade, o número 4 é co- 
locado no registro B e guardado tempo- 
rariamente na pilha. O par BC recebe, 








então, o endereço de um espaço em 
branco. Na realidade, este é um byte da 
tabela de códigos para o alto da tela. 

O código da cor do céu — 45 — vai 
para o acumulador e a sub-rotina print 
é novamente chamada. Assim, para co- 
locar o primeiro bloco cor do céu sobre 
o perfil da encosta, o computador tira 
a primeira “pá de terra”” do local onde 
ficará o buraco. 

Colocando 32 em DE e somando es- 
se valor a HL, fazemos com que este par 
aponte para o endereço da posição ime- 
diatamente inferior. O contador é recu- 
perado da pilha e a instrução djnz sub- 
trai uma unidade dele, saltando em di- 
reção ao rótulo hlg, se B ainda não for 
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zero. O processador executa esse laço 
quatro vezes, imprimindo mais um blo- 
co cor do céu — ou tirando mais uma 
pá de terra — a cada volta. 


| AS COBRAS 


O resto do programa desenha as co- 
bras. As sete primeiras instruções são 
parecidas com as que iniciam a rotina 
dos buracos. Elas colocam no par HL 
a posição de impressão de cada cobra, 
chamando em seguida a sub-rotina que 
desenha a serpente. 

Essa rotina também se assemelha 
aquela que desenha os buracos — afinal, 





as cobras devem caber dentro deles. 

Desta vez, o contador ficará no acu- 
mulador, pois precisaremos controlar o 
apontador da tabela de padrões. No ca- 
so dos buracos, esse apontador foi di- 
recionado para o endereço de um espa- 
ço em branco, Aqui ele percorrerá a ta- 
bela que criamos na memória RAM. A 
sub-rotina print atualiza automatica- 
mente o apontador, movendo-o para O 
próximo byte. Como o apontador fica 
no par de registros BC, teríamos que fi- 
car guardando seu valor na pilha, se qui- 
séssemos recorrer à instrução djnz para 
controlar o laço. Com o contador em A, 
essa instrução é substituida por dec a e 
jr nz, snr. 








TESTE DA ROTINA 


Para testar a rotina, coloque níveis de 
dificuldade de O a 3 no endereço 57344, 
usando o comando POKE 57344. Cha- 
me a rotina com RANDOM 58455 e ve- 
rifique se os buracos estão sendo dese- 
nhados no nível 1; as cobras, nos níveis 
2e3,ese prêmios diferentes aparecem 
a cada nível. 


Lcsa - E 


O programa listado a seguir desenha 
os buracos e as serpentes assassinas ao 
longo da encosta, conforme o nível de 
dificuldade. 


10 ORG 19289 

20 ELB LDA 18238 
30 LDB +16 

ão  MUL 

50 ADDD 418142 
60 TFR D,U 

70 LDX 42782 

BO JSR CHARPR 

90 LDA 18238 

100 BEQ ED 

110 PSHS A 

120 JSA HOLES 
130 PULS A 

140 CMPA 41 

150 BEQ ED 

160 JSR SNAKE 
170 ED ARTS 

180 HOLES LDX 45095 
190 LDU 43071 
200 JSR HOLPR 
210 LDX 44591 
220 LDU 43071 
230 JSR HOLPR 
240 LDX 43833 
250 LDU 43071 
260 JSR HOLPR 
270 RTS 

280 SNAKE LDX 45095 
290 LDU 418078 
300 JSR HOLPR 
310 LDX 44591 
320 LDU 418078 
330 JSR HOLPR 
340 LDX 43833 
350 LDU 418078 
JSR HOLPR 
RTS 

HOLPR LDB 44 
HOLPRI PSHS U,X,B 
JSR CHARPR 
PULS B,X,U 
LEAX 256,X 
LEAU 16,U 
DECB 

BNE HOLPRI 
RTS 

CHARPR LDB &2 
CHARI PSHS B,X 
LDB 48 

CHARZ PULU A 
STA ,X 





BR] bela o padrão do bloco a ele adequado. 


520 LEAX 32,X 
530 DECB 
540 BNE CHARZ 
550 PULS X,B 
560 LEAX 1,X 
570 DECB 
5B0  BNE CHARI 
590 RTS 





COMO TESTAR O PROGRAMA 


Esse programa acrescenta blocos grá- 
ficos ao cenário já montado. Portanto, 
para testá-lo, é preciso que as rotinas e 
tabelas criadas anteriormente estejam na 
memória do micro. Depois de carregar 
os códigos e montar o programa, digite 
as linhas BASIC que seguem. Elas per- 
mitirão que você execute a parte do jo- 
go já programada. 


5 PCLEAR4;CLEAR 200,16999 
10 EXEC 19000:EXEC 19109 
20 POKE 18238,0 

30 EXEC 19289 

40 GOTO 40 

A linha 10 executa parte do jogo 
montada nos artigos anteriores; a 20 
acerta o valor do nível de dificuldade e 
a 30 executa o programa deste artigo. A 
40) serve apenas para manter a tela de al- 
ta resolução ligada. 

Para termos certeza de que nossa ro- 
tina funciona perfeitamente, devemos 
interromper o programa com BREAK 
e editar a linha 20 para mudar o nível 
de dificuldade. O nível O deixa o cená- 
rio intacto, apenas com a montanha — 
os perigos desse nível são as pedras, que 
faremos rolar morro abaixo em outra 
parte do programa, 

O nível | desenha os buracos na en- 
costa e o 2 acrescenta as serpentes as- 
sassinas. O nível 3 soma a tudo isso a 
avalanche, que, como dissemos, será 
promovida por outra rotina. 

Teste cada um dos níveis. Verifique 
se as guloseimas roubadas estão sendo 
desenhadas no topo da montanha. 





NÍVEIS DE DIFICULDADE 


O endereço 18328 será usado para 
guardar o nível de dificuldade em vigor. 
Seu conteúdo transfere-se para o acu- 
mulador no início do programa e, em se- 
guida, o número 16 é colocado no re- 
gistro B. A instrução MUL multiplica 
o conteúdo desses dois registros, colo- 
cando o resultado em D. 

Como o bloco gráfico de cada prê- 
mio tem dezesseis bytes de comprimen- 
to, precisamos multiplicar o nível vigen- 
te por dezesseis, para obtermos na ta- 


O número obtido pela soma de 18142 
ao resultado da multiplicação indica a 
posição inicial do padrão do bloco de- 
sejado, na tabela de padrões. Esse apon- 
tador é então transferido para o regis- 
tro U, que funciona como apontador da 
pilha do usuário. 

O registro X recebe o valor 2814, po- 
sição de impressão do prêmio na tela 
gráfica. Em seguida, o processador sal- 
ta para o rótulo CHARPR, que impri- 
me o bloco gráfico correspondente. 

A instrução LDA 18238 repõe o ni- 
vel de dificuldade dentro do acumula- 
dor. Se o nível for zero, a instrução BEQ 
provoca um desvio para o rótulo ED. 
Como neste nível já nada mais precisa 
ser acrescentado ao cenário — com ex- 
ceção do prêmio —, a instrução RTS 
termina a sub-rotina. 

Se o nível for maior que zero, o pro- 
grama guarda seu número na pilha da 
máquina. A sub-rotina que cava os bu- 
racos na encosta é, então, chamada. 

Depois que a escavação termina, o ní- 
vel é recuperado da pilha e comparado 
a 1. Se este for o número do nível atual, 
a instrução que desenha as cobras, JSR 
SNAKE, é ignorada e o processador re- 
torna da sub-rotina. 





BURACOS E COBRAS | 


As rotinas que desenham os buracos 
e as cobras compõem-se de três séries de 
três instruções, e funcionam da mesma 
maneira. Em cada série, o registro X re- 
cebe a posição da tela onde deve ser im- 
presso o topo do bloco gráfico, enquan- 
to o registro U recebe o endereço inicial 
do padrão do bloco na tabela. Em se- 
guida, o processador salta para a roti- 
na de impressão, HOLPR. 

Como todos os buracos são iguais, o 
apontador da tabela tem sempre o va- 
lor inicial 3071. Esse endereço não fica 
na tabela, e sim na tela, pois o buraco 
nada mais é que um bloco cor do céu. 
O mesmo acontece com as cobras, cujo 
bloco gráfico tem endereço inicial 18078 
na tabela de padrões, 

As cobras são impressas, evidente- 
mente, na mesma posição que os bura- 
cos que ocupam. O topo do primeiro 
buraco fica em 5095; o segundo, em 
4591 e o terceiro, em 3833. Tanto as co- 
bras quanto os buracos são desenhados 
sobre o perfil da montanha original. O 
restante do cenário permanece intacto. 





A ROTINA DE IMPRESSÃO 


As rotinas HOLES e SNAKES cha- 
mam a sub-rotina HOLPR, que é res- 


32 CÓDIGO DEMÁQUINA 32 | 


ponsável tanto pelo desenho dos bura- 
cos quanto pelo das cobras. 

O registro B recebe inicialmente o nú- 
mero 4 — os buracos têm quatro blo- 
cos de profundidade. Os registros U, X 
e B são guardados na pilha antes que a 
rotina CHARPR seja chamada. Esta é 
responsável pela impressão do bloco in- 
dicado pelo apontador de tabela de pa- 
drões na posição determinada por X. 

Assim, Se estivermos no nível 1 e for- 
mos desenhar um buraco, o apontador 
da tabela, U, indicará seu padrão e a ro- 
tina se encarregará de colocá-lo na po- 
sição dada por X. Se estivermos no ni- 
vel 2 ou 3, U apontará para o padrão 
do bloco da cobra, que será impresso na 
posição X da tela. 

Uma vez feita a impressão B, X eU 
são recuperados da pilha. X recebe en- 
tão o valor X + 256, que corresponde à 
posição de impressão imediatamente in- 
ferior. U recebe o valor U+16, que 
aponta para o padrão do próximo blo- 
co gráfico na tabela. 

Em seguida, B é subtraido em uma 
unidade e, se ainda não foi reduzido a 
zero, o processador volta ao rótulo 
HOLPRI. Quando o conteúdo desse re- 
gistro chegar a zero, todos os quatro 
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Em seguida, X e B são recuperados 
da pilha e X recebe o valor X+1 — 
LEAX 1,X —, o que faz o apontador 
mover-se um byte para a direita na te- 
la. O contador B é então subtraído de 
uma unidade. Se ele ainda não tiver si- 
do reduzido a zero, o processador retor- 
na ao rótulo CHARI para imprimir 
mais uma coluna de oito bytes. Quan- 
do B já for igual a zero, as duas colu- 
nas estarão desenhadas e o processador 
retornará da sub-rotina CHARPR. 


Es O 


560 push de 

570 ld c,3 

SBO po ld h1l, (62407) 
590 ld de,-5227 
600 ld (-5220), de 
610 pop de 

620 ld b,á 

630 pp add hl,de 
640 ld de, (-5220) 
650 ld a, (de) 

660 inc de 

670 ld (-b220) , de 
680 push hl 





10 org 53682 
20 ld a, (-5228) 
30 rla 
al rla 
50 Id b,56 
60 add a,b 
70 1d h1l,(62407) 
80 Id de,254 
90 add hl,de 
100 call 77 
110 ld a, (-5228) 
120 cpoO 
130 jr z,ed 
140 push af 
150 call ho 
160 pop af 
170 cp 1 
180 jr z,ed 
190 call sn 
200 ed ret 
210 ho ld de,457 
220 push de 
blocos terão sido desenhados, a instru- 230 ld de,401 
ção BNE HOLPRI será ignorada e o 240 push de 
processador retornará da sub-rotina. 250 ld de,314 
A impressão do bloco é feita pela ro- 260 push de 
tina CHARPR, que explicamos a seguir. a ld pd sto! 
Cada bloco gráfico impresso na tela co HE tado 
tem dezesseis bits — dois bytes, portan- 09 Id b,4 
to — de largura e oito bits de profundi- 310 pp add hl,de 
dade. O registro B recebe, assim, O va- 320 ld a,254 
lor 2, para contar a largura do buraco. 330 push hl 
Esse contador é preservado na pilha, 340 push bc 
juntamente com a posição de impressão 350 call 77 
contida no registro X. Brecebe então o 360 pop bc 
valor 8, para contar a profundidade do 270 | pop hl 
bloco. 380 ld de,32 
O byte correspondente ao padrão da . o ni 
+ g ' EC c 
linha do bloco é recuperado da pilha do 4j9 5r nz,po 
usuário, colocado no acumulador e, em 420 ret 
seguida, transferido para a posição de 430 sn ld a,37 
impressão apontada pelo registro X. Por 440 ld (-5227),a 
meio desse processo, O bloco é impres- 450 add a,3 
so linha por linha na tela. 460 ld (-5226),a 
A instrução LEAX 32,X coloca o va- 470 add a,l 
lor X+32 no registro X, movendo o pda e ,ã 
apontador de posições de tela uma linha ; 0 a e 5224) ,a 
de pixels para baixo. O contador Bédi- «jo 1d de,457 
minuído em uma unidade e o processa- s20 push de 
dor retorna para imprimir O próximo 530 ld de,401 
byte, até que B tenha sido reduzido a ze- s4o push de 
ro — BNE CHARZ. 550 ld de,3l4 


690 push bc 
700 call 77 
710 pop bc 
720 pop hl1 
730 ld de,32 
740 djnz PP 
750 dec c 
760 jr nz,po 
770 ret 

780 end 






ROTINA DE PRÊMIOS | 





OÔ conteúdo do endereço -5228 é co- 
locado no acumulador. O nível de difi- 
culdade do jogo ficará armazenado nes- 
sa posição de memória. 

O valor de A (0, 1,2 cu 3) será utili- 
zado para gerar o código da tabela de 
padrões que corresponde ao prêmio no 
nivel vigente, ou seja: 


nível valor de A prêmio código 
| 0 sanduíche 56 
2 ] maçã 60 
3 2 garrafa 64 
4 3 sorvete 68 


Armazenamos o código de padrão do 
sanduíche, 56, no registro B. Este será, 
portanto, o código-base. Em seguida, 
multiplicamos o conteúdo de A por qua- 
tro — a operação equivale a deslocar o 
conteúdo de A dois bits para a esquer- 
da, o que é feito pela instrução rla exe- 
cutada duas vezes. 

Somando o código-base contido em 
B ao valor de A, obtemos no acumula- 
dor o código do prêmio certo. 

O endereço inicial da tabela de nomes 
de VRAM, que está nas posições de me- 
mória 62407 e 62408, é colocado no par 
de registros HL. Adicionamos a esse en- 
dereço o deslocamento correspondente 
à posição na qual desejamos imprimir 
o prêmio — 256, que equivale ao topo 
da montanha. 

Para a impressão do bloco corres- 
pondente ao prêmio, utiliza-se a sub- 
rotina 77 da memória ROM, Esta colo- 
ca o valor do acumulador A na posição 
da VRAM apontada pelo par HL. No 
nosso caso; ela coloca o código do blo- 
co do prêmio na tabela de nomes. 

Lembre-se de que a tela, no modo de 









alta resolução, é um reflexo da tabela de 
nomes da VRAM. 





O NÍVEL DE DIFICULDADE 





O conteúdo da posição de memória 
que guarda o nível de dificuldade é pos- 
to de volta no acumulador. Se for iqual 
a zero, a instrução jr z,ed salta para O 
final da rotina onde se encontra a ins- 
trução ret. Caso contrário, O processa- 
dor continua preservando o número do 
nível na pilha. A sub-rotina his, que de- 
senha os buracos ao longo da encosta, 
é então chamada. 

O nível de dificuldade é recuperado 
da pilha e comparado a 1. Nesse nível 
temos vários buracos, mas nenhuma ser- 
pente dentro deles. Logo, se A contiver 
|, a instrução ep 1 resulta em zero, o que 
ativa o indicador de zeros. A instrução 
ir z,ed salta novamente para o final da 
rotina e retorna. 

Se o nível for superior a 1, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada e, depois, o progra- 
ma termina. Quando a rotina principal 
de controle estiver na memória, O pro- 
grama retornará a ela. Por enquanto, re- 
torna ao BASIC. 


OS BURACOS | 


A próxima sub-rotina é totalmente 
dedicada a cavar buracos ao longo da 
encosta. Ela começa com o rótulo ho, 
chamado pela rotina principal quando 
surge a necessidade de acrescentar os bu- 
racos ao cenário. Inicialmente, ho arma- 
zena na pilha o endereço da tela corres- 
pondente à posição de impressão do to- 
po de cada buraco. Como são três bu- 
racos, isso é feito três vezes. 





Todos são desenhados da mesma ma- 
neira, por intermédio do laço ho que co- 
loca no par de registros HL o endereço 
inicial da tabela de nomes da VRAM, 
adicionando a ele o endereço da tela cor- 
respondente a cada buraco. 

O registro € é usado como contador 
para os três buracos, e a instrução jr nz, 
ho testa o fim da rotina. 

Como cada buraco tem quatro blo- 
cos de profundidade, esse valor é colo- 
cado no registro B, que contém o núme- 
ro de execuções do laço hp. 

O código da tabela de padrões do blo- 
co cor de céu é armazenado no acumu- 
lador A. Em seguida, a rotina 77 da 
ROM, cujo funcionamento explicamos 
anteriormente, é chamada. 

Para evitar possíveis alterações de 
correntes da rotina 77, as instruções 
pusch e pop são usadas para proteger os 
contadores no par BC e os endereços no 
par HL. O contador é recuperado da pi- 
lha e a instrução djnz subtrai uma uni- 
dade dele, saltando em direção ao rótu- 
lo hp se o registro B ainda não tiver si- 
do reduzido a zero. 

O laço, executado quatro vezes, tira 
uma “pá de terra” a cada volta. 















PERES ES E 2 ET 6 RA 


AS COBRAS ASSASSINAS 





Cabe à rotina sn desenhar as cobras. 
O processo é basicamente igual ao da ro- 
tina ho e as cobras são desenhadas nas 
mesmas posições que os buracos. Há 
uma diferença fundamental: para cavar 
um buraco, precisamos colocar o mes- 
mo padrão do bloco cor de céu quatro 
vezes; já para desenhar uma cobra te- 
mos que mudar o código do padrão pa- 
ra cada parte do animal. 

Essa tarefa seria muito simples se os 
códigos dos padrões que formam a co- 
bra estivessem em sequência. Porém, co- 
mo você pode verificar na tabela de pa- 
drões, isso não ocorre. Armazenamos, 
assim, no início da rotina, os códigos dos 
padrões que formam a cobra — 37, 40, 
41, 44 — nos endereços de -5227 até 
-$224. Depois, basta assegurar que es- 
ses endereços sejam chamados sequen- 
cialmente para cada cobra a ser desenha- 
da. Isso é feito por intermédio do par 
DE, que serve como ponte, armazenan- 
do o endereço inicial da tabela (-5227) 


nas posições -5220 e -5219. Esses ende-. 


reços contêm o endereço do código do 
padrão correspondente a cada uma das 
partes da cobra. 

No mais, esta rotina é idêntica à que 
cava buracos. 


TESTANDO 


Para testar a rotina, digite o seguin- 
te programa BASIC: 


10 DEFUSRl=-12144 
20 DEFUSR2=-11973 
30 DEFUSR3=-11854 
40 A=USRI (0) 

50 A=USRZ(0) 

60 A=USRI(O) 

70 GOTO 70 

BO END 


A linha 40 chama a rotina -12144, 
que coloca a tela no modo de alta reso- 
lução, e a 50 chama a rotina -11973, en- 
carregada de desenhar a montanha na 
tela. A linha 60 chama a rotina apresen- 
tada neste artigo. 

A tela é mantida no modo de alta re- 
solução pela linha 70. 

Para testar o funcionamento da ro- 
tina nos vários níveis de dificuldade, di- 
gite POKE -5228,A, atribuindo à variá- 
vel A os valores 0, 1,2 ou 3. 

















Pode-se consultar, com o BASIC, as 
posições da memória que armazenam o 
vídeo e as cadeias de caracteres. 
Usando esse recurso, você tornará seus 
programas bem mais rápidos. 


No artigo anterior desta série, vimos 
como manipular o conteúdo da memo- 
ria de vídeo do TRS-B0 e compatíveis 
com o auxílio dos comandos PEEK e 
POKE. Podemos fazer isso porque o vi- 
deo do TRS-80 é mapeado diretamente 
em um segmento fixo da RAM, que co- 
meça na locação 15360 e se estende até 
a locação 16376. Cada caractere na tela 
é armazenado em uma posição corres- 
pondente dessa memória de 1024 bytes. 

Porém, os comandos PEEK e POKE 
são muito lentos quando usados dentro 
de laços FOR...NEXT para a transfe- 
rência, consulta ou escrita de grande 
quantidade de caracteres na tela. Há 
uma técnica bem mais poderosa e rápi- 
da, que aprenderemos neste artigo: é O 
uso da função VARPTR como aponta- 
dor de cadeias de caracteres para a tela. 

Essa técnica permite armazenar ins- 
tantaneamente 255 caracteres em exibi- 
ção na tela, em uma cadeia alfanuméri- 
ca (string). O limite de 255 caracteres 
(que corresponde a quatro linhas de ví- 
deo) é imposto pelo tamanho máximo 
de um string alfanumérico. Se quiser- 
mos deslocar a tela inteira, portanto, 
basta efetuar a transferência em “'par- 
tes” de 255 bytes de cada vez. 

Para entender como a técnica funcio- 
na, precisamos conhecer o processo de 
armazenagem de cadeias alfanuméricas 
na memória do TRS-80. Existe um es- 
paço na memória RAM, criado toda vez 
que o BASIC é inicializado. O argumen- 
to do comando CLEAR define o tama- 
nho desse espaço (o tamanho predefini- 
do é de cingiienta bytes). 

Sempre que uma variável alfanumé- 
rica é definida (ou seja, sempre que não 
é uma constante dentro de um progra- 
ma), o interpretador BASIC cria um par 
de bytes apontadores, que contém o en- 
dereço absoluto inicial da cadeia, na me- 
mória de strings. Nessa locação inicial, 
está armazenado um byte, que contém 


o comprimento da cadeia em bytes (dai 
a limitação intrínseca de 255 bytes por 
cadeia). Nas duas locações seguintes, en- 
contram-se os bytes (0 menos significa- 
tivo e o mais significativo) do endereço 
inicial onde está armazenado o conteú- 
do da cadeia alfanumérica. 

Seu programa pode ter acesso direto 
a toda essa informação através da fun- 
ção VARPTR. Para uma variável V$, 
por exemplo, teriamos: 


VARPTR(V$S) = locação do apontador de V$ 
PEEK(VARPTR(V$)) = comprimento de V$ 
PEEK(VARPTR(V$)+1) = endereço de VS 
PEEK(VARPTR(V$)+2) = endereço de V$ 


Nada mais fácil, portanto, do que 
transferir 255 bytes da tela para uma va- 
riável alfanumérica: basta alterar o en- 
dereço armazenado nas locações 
VARPTR(V$)+1 e VARPTR(V$S)+2 
de modo que passe a apontar para a lo- 
cação inicial da memória de vídeo que 
queremos transferir. Nenhum byte do 
conteúdo da tela precisa ser movido! 

A sub-rotina seguinte coloca o com- 
primento desejado e o endereço inicial 
de vídeo no bloco de apontadores de 
uma variável VS: 

1000 ' SUBROTINA VTRANSF 
1010 V$8=" ":POKE VARPTR(VS),C? 


1020 POKE VARPTR(VS)+1, V&-INT 
(Vt/256)*256 
1030 POKE VARPTR(VS)+2, INT(VE 


/256) +60 
1040 RETURN 

A linha 1010 define V$ e armazena 
no primeiro endereço do bloco de apon- 
tadores o número de bytes de compri- 
mento (a variável inteira C%). 

As linhas 1020 e 1030 tratam de ar- 
mazenar no bloco de apontadores, res- 
pectivamente, o byte mais significativo 
e o byte menos significativo do endere- 
ço desejado de início no vídeo (a variá- 
vel inteira V%o). 

Observe que as variáveis Co e V% 
estão definidas como inteiras. Para usar 
a sub-rotina, deve-se colocar em V% o 
endereço da posição de início na tela (O 
a 1023), e, em C%, o número de bytes 
a se transferir (0 a 255). Ao retornar da 
sub-rotina, V$ conterá os caracteres que 
estavam armazenados na tela, da posi- 
ção V% a V% + C%. 


OS SEGREDOS 
DO TR5-80 (2) 


CÓPIA DA TELA 

FUNÇÃO VARPTR E VÍDEO 
TRANSFERÊNCIA 
APLICAÇÕES 

IMPRIMINDO A TELA 








APLICAÇÕES 


Essa rotina, que chamaremos de 
VTRANSF, possui numerosas aplica- 
ções. Eis aqui algumas delas: 

º copiar o conteúdo de uma tela de vi- 
deo na impressora; 

* armazenar o conteúdo de várias telas 
de vídeo na memória; 

* armazenar as telas em disco; 

e realizar animações gráficas, pela su- 
perposição rápida de porções de telas de 
vídeo previamente armazenadas em 
memória; 

e montar vídeos com várias “janelas” 
superpostas, independentes. 


Nos próximos artigos desta série, tra- 
taremos em detalhe das aplicações da ro- 
tina VTRANSF. 





COMO IMPRIMIR A TELA 


O programa que se segue é um pri- 
meiro exemplo de utilização da sub- 
rotina VTRANSF. Ele imprime o con- 
teúdo corrente da tela em uma impres- 
sora, linha por linha: 


10 CLEAR 500 
20 ct=64 
30 FOR Vê=0 TO 960 STEP 64 


40 GOSUB 1000 : LPRINT VS 
50 NEXT Vê 
60 END 


O programa funciona da seguinte 
maneira: a linha 10 reserva quinhentos 
bytes de memória para strings. A linha 
20 define o comprimento C% da variá- 
vel alfa que receberá cópia de uma linha 
de vídeo. A linha.30 inicia um laço, que 
vai até a linha 50, percorrendo os ende- 
reços de vídeo (VW %) desde a primeira até 
a última linha, de 64 em 64 posições. Fi- 
nalmente, a linha 40 chama nossa sub- 
rotina VTRANSF (que deverá ser colo- 
cada logo após a linha 60) e imprime a 
variável V$, que recebeu a cópia do 
video, 

Se sua impressora não for do tipo 
gráfico, use esse programa apenas para 
copiar telas de texto, pois ele não con- 
verte os caracteres gráficos (129 a 191) 
que encontra na tela. | 
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E me GANSOS (3) 





É MRE Se 
mm E 


» Terceira e última parte do jogo 4 Ra- 
—— posa e osGansos, este artigo apresenta 

rotinas que possibilitam ao computador 

jogar tanto pela raposa quanto pelos 

gansos. Na verdade, ele pode ser colo- 
> cado a jogar sozinho ou simplesmente 
--— pode não jogar, se você tiver um par- 
ceiro humano; neste caso, o computa- 
dor servirá apenas como tabuleiro e for- 
necedor de peças. 





210 LET P=B(G(1))+B(G(2))+B(G( 
“3))+B(g(4)) 

220 LET X=F: IF B<B(32) THEN 
LET P=P-BX: LET X=33=F 

230 LET P=P*B(X): RETURN 
| 250 LET F=EN A(ABS P)-30: LET 
- B=P/B(FP): IF B<O THEN LET B=B 
+BX: LET F=33-F 

260 FOR A=1 TO 4: LET G(A)=EN 
A(B)+1: LET B=B-B(G(A)): NEXT 
A: RETURN 


210 P=B(G(1))+B(G(Z))+B(G(3))J+B 

6 (4)) & dA 7 “o 

220 X=F:IF P<B(31) THEN P=P-BX: 

X=31-F 

230 P=PxB (X) : RETURN 

250 F=FNA (ABS (P))-31:B=P/B(F): 

F B<O THEN B=B+BX:F=31-F 

| 260 FOR A=1 TO 4:G(A)J=FNA(B):B= 
B-B(G(A)):NEXT:RETURN 





P 











>. 


210 P=B(G(1))+B(G(2))+B(0(3))+B 
(G(4)) 

220 X=F:IF P<B(31) 

X=31-F 

230 P=P*B(X) : RETURN 
250 F=FNA(ABS(P))-31:B=P/B(F):I 
F B<Q THEN B=B+BX:F=31-F 

260 FOR A=1 TO 4:G(A)=FNA(B):B 
B-B(G(A)) : NEXT:RETURN 


[Id] 


210 P = B(G(1)) + B(G(2)) + BIG 
(3)) + B(G(4)) 

220 X = Fº: TF P < B(31) THEN P 
-Pp-BX:X=31-F 

230 P.= P * B(X): RETURN 

250 F = FNA( ABS (P)) - 31:B 
= P/ B(F): IF B< O THEN B=B 
+ BX:'F = 31-F 

260 FOR A =1'TO4:G(A) = 
A(B):B = B - B(G(A)): NEXT 
TURN 


THEN P=P-BX: 


EN 
= RE 


Essas são duas das mais importantes 
rotinas do programa. A rotina da linha 
210 à linha 230 avalia a posição em jo- 
go e a transforma em um número. De 
modo inverso, quando o computador ti- 
ver escolhido a melhor jogada, tem que 
converter um número em um movimen- 
to. As linhas 250 a 260 transformam o 
valor numérico em um conjunto de va- 





As rotinas deste artigo permitem ao 
computador não só jogar pela 

raposa e pelos gansos como também 
estudar os próximos movimentos 
para melhorar o nível da partida. 


lores necessários para posicionar as pe- 
ças. Essas sub-rotinas são chamadas 


com muita frequência e, por isso, foram 
colocadas logo no início do programa. 


O MOVIMENTO DA RAPOSA 





1010 GOSUB 210 
1020 GOSUB 310: GOSUB 250 
1030 IF F>28 THEN PRINT AT 21, 
0;"A RAPOSA VENCEU 

": GOTO 1410 
1032 GOSUB 410: 


IF V=H THEN PR 











"OS GANSOS VENCERAM 

". GOTO 1410 
1040 IF PF THEN GOTO 1110 | 
1050 INPUT "MOVER RAPOSA PARA ” 
“B: IF B=-1 THEN GOSUB 2710: G 
OTO 1030 
1055 GOSUB 4000 
1060 FOR A=1 TO K(F): LET X=M(A 
E): IF X=B THEN IF NOT (EN X( 
X)) THEN LET F=B: GOSUB 210: G 
OÓTO 1200 
1070 NEXT A: PRINT AT 21, ndo 
O NÃO E LEGAL 

GoTo 1050. 
1110 LET L=SF: LET M=5SF: LET Ví( 
M)=E*M: IF M>4 THEN DIM R(HF+3 
): DIM S(HF+3) 
1112 GOSUB 1120: 


INT 


GOTO 1200 








1120 IF L=1 THEN GoTo 410 
1122 IF L<M-2 THBEN GOSUB 
IF V<>0 THEN RETURN 
11300LET L=L-1: LET V(L)=H*L: L 
ET A(L)=X(F): LET F(L)=F 
1140 LET F=MIA(L),F(L)) 
1150 IF FN X(F)=0 THEN GOSUB 1 
320: TE V>V(L) 
LETZORLE) =F: 
LET EFs=P(L): 
LL6O LET A(L)J=A(L)-1: 
THEN GOTO ]140 
1170 LET V=VÍL): 
7 E=EAIlS IF L=M THEN LET 
=11" GOSURB 210: RETURN 


1610: 


IF V>V(L+1) THEN 
LET L=L+]: RETURN 
IF A(L)20 


LET F=F(L): LE 
F=P(M 


1172 IF L<M-2 THEN GOSUB 1510: 
RETURN 
1180 RETURN 





1010 SCREEN 1,0:GOSUB 210:GOTO 
1030 

1020 XX=FNXX (G) : YY=ENYY(G) : PUT( 
XX, YY)-(XX+19, YY+19),80, PSET:XXK 
=FNXX(G(C)) : YY=FNYY(G(C))+5: PUT 
(XX, YY) - (XX+19, Y7+9), GS, PSET 
1030 CLS: IF F>27 THEN PLAY V$:P 
RINT 87,"A RAPOSA VENCEU” :GOTO 
1410 

1032 GOSUB 410:IF V=H THEN PLAY 
VS: PRINT €6,"0S8 GANSOS VENCERA 
M*-GOTO 1410 

1040 LINE(180,0)-(255,191),PRES 
ET,BEF:TF PF THEN DRAW"BM180,50C 
4"+THS:GOTO 1110 


THEN LET V(L)=V" 


| | | 
| | | 


L. COMO JOGAR NOS NÍVEIS 
Tas MAIS BAIXOS 

EE. AROTINA DE MOVIMENTAÇÃO 
pç DA RAPOSA 

ta, COMO MOVER -OS-GANSOS 


1050 DRAW" BM180, BOC4"+MWS:XX=FN 
XX (F):YY=FNYY(F):GOSUB 1810:B=4 
KINT (YY/20):B=FNCN (B) 

1055 IF B=-1 THEN PLAY VS:PRINT 
€6,"08 GANSOS VENCERAM” :GOTO 14 
10 

1060 FOR A=0 TO X(F):X=M(A,F):I 
EF X=B AND NOT ENX(X) THEN A=K(F 
JE: XX=FNXX(F):YY=FNYY(F):PUT(RX, 
YY)-(XK+19, YY+19), SQ,PSET:F=B:G 
OSUB 210:NEXT:GOTO 1200 

1070 NEXT:GOSUB 5000:GoTO 1040 

1110 L=SF:M=SF:V(M)=EXM:IF M>d 

THEN FOR A=0 TO HF:R(A)=0:NEXT 

1112 LE=F:GOSUB 11207:XX=FNXX (LF 
) : YES PNYY (LE) : PUTÍXX, VV) - (XX+HI9 
+ YY+19),8SQ, PSET:GOTO 1200 

1120. IF L=1 THEN 410 

1122 IF L<M-2 GOSUB 1610:1IF U<> 
O THEN RETURN 

1130 L=L-1:V(L)=HAL:A(L)=X(F): E 
(L)=F 

1140 F=M(A(L) ,F(L)) 

1150 IF FNX(F)=0 GOSUB 1320:IF 

V>V(L) THEN V(L)=V:P4L)=F:IF V> 
V(L+1) THEN F=F (L):L=L+1: RETURN 
1160 A(L)=A(L)-1:IF A(L)>=0 THE 
N 1140 

1170 V=V(L):F=F(L):LsL+1:IF L=M 
THEN E=P(M-1) :GOSUB.210:RETURN 
1172-TF L<M-2 GOSUB 1510 

1180 RETURN 


a 


1010 GOSUB 210:GOoTO 1030 

1020 GS (FNZZ(G) ,1)=G(C) ;XX=EFNXXK 
(G(C)) :YY=ENTY(G(C)): PUT SPRITE 
GS (FNZZ(G(C)),0), (XX, YY),15 





Es “COMO JOGAR NOS NÍVEIS 

”  MAISALIOS 
px O ALGORITMO-ALFA-BETA 
= TABELAS DE POSIÇÕES 


PARA UMJOGO MAISRÁPIDO 





1030 IF F>27 THEN PLAYVSTFORK=1 
T0500:NEXT: SCREENO: PRINT"A RAPO 
SA VENCEU!” :GOTO 1470 


1032 GOSUB 410:TF V=H THEN PLAY 


VS :FORK=1T0O500:NEXKT: SCREENOSPRI 
NTºOS GANSOS VENCERAM!" “GOTO lã 
10 

1040, LINE(168,0)-(255,191),11,8 
F:IF PF-THEN PRESET (188,50):PR 
INTAl,"Pensando":GOTO 1110 

1050 PRESET (188,80):PRINTAL,"P 
ara ?":XX=FENXX(F):YY=ENYY(F):GO 
SUB -1810:B=4*INT((YY=2)/20) :B=E 
NCN (8) 

1055 IF B=-1 THEN PLAYVS:FOBK=d 
T0500:NEXT:SCREEND: PRINTOOS GAN 
808 VENCERAM!":GOTO 1410 

1060 FOR A=0 TO X(Fj):R=MIA,F):1 
F X=B AND NOT FNX(X) THEN A=X(F 
):F=B:GOSUB 210:NEXT:GOTO 1200 
1070 NEXT:GOSUB 5000:G0T0O 1040 
1110 L=SF:M=SF:V(M)=E*M:IF M>4 
THEN FOR A=0 TO HE:R(A)=0:NEXT 


1112 LF=FrGOSUB 11Z0:G0To 1200 
1120 IF L=1 THEN 410 
1122 IF L<M-2 THEN GOSUB 161041 


F V<>0 THEN RETURN 
1130 LeL=1»V (L)=HSLsAGL)=X (F) E 
(L)=F 

1140 F=M(A(L),E(L)) 

1150 IF ENX(F)=0 THEN COSUB 132 
OrIF V>U(L) THEN V(L)=V:PÍL)=E: 
IE V>V(L+1). THEN E=ElD)sbeL+1:R 
ETURN 

1160 A(L)=A(L)=1:IF A(L)>=0 THE 

N 1140 

1170 V=V(L) :F=FIL):LsL+I: IF LM 
THEN E=P(M-1) :GOSUB2104RETURN 
1172 TP L<M-2 THEN GOSUB. 1510 
1180 RETURN 













m 


Lab) [5] 


1010 GOSUB 210: GoTo 1030 


1020 XX = EN XKX(G):YY = EN YY 
(G): HCOLOR= 0: DRAW GS AT XX + 
7,XY + 5: HCOLOR= 3:XX = FN X 
X(G(C)):YY = EN YY(G(C)): DRAW 


GS AT KX + 7,YY + 5 
1030 HOME : IF F > 27 THEN PR 
INT V$: HOME : VTAB 22: PRINT * 
A RAPOSA GANHOU!": GOTO 1410 
1032 GOSUB 410: IF V = H THEN 
PRINT VS: HOME : VTAB 22: PRIN 
T "OS GANSOS GANHARAM!”": GOTO 1 
410 
1040 
N PRINT 
110 
1050 PRINT "MOVE PARA ONDE? "; 
XX = EN XX(F):YY = EN YTCF): 
GOSUB 1810:B = 4 * INT (YY / 
20) :B = FN CN(B) 
1055 IF B = - 1 THEN PRINT V 
S: HOME : VTAB 22: PRINT "OS GA 
NSOS VENCERAM!": GOTO 1410 
1060 FORA = 0 TOX(F):X = M(A 


HOME : VTAB 22: TF PF THE 
"PENSANDO...";: GOTO 1 


5F)J: IF X = B AND NOT EN X(X) 
THEN À = X(F):XX = FN XKX(F):Y 
Y = EN YY(F); HCOLOR= O: DRAW 


FX AT XX + 2,YY + B:F = B: HCOL 


OR= 3: GOSUB 210; NEXT : GOTO 1 
200 
1070 NEXT : GOSUB 5000: GOTO 1 
040 
1110 L = SF:M = SF:V(M) = E *M 


: IF M > 4 THEN FOR A=OTOH 
F:R(A) = O: NEXT 

1112 LF = EF: GOSUB 1120:XX = FF 

N XX(LF):YY = EN TY(LF): HCOLO 

R= 0: DRAW FX AT XX + 2,Y7 + B: 
HCOLOR= 3: GOTO 1200 


1120 IF L =1 THENAIO 
1122 IFLSM- 2 THEN GOSUB 
1610: IF V < > O THEN RETURN 


1130 L = Lom l:ViL) 
) = X(F):F(L) = F 
1140 F = M(A(L),F(L)) 

1150 IF FN X(F) = OQ THEN GOS 
UB 1320: IF V > V(L) THEN V(L) 
= VPL) = FE TE V > VCL + 1) T 


= H*L:A(L 


HEN F = F(L):L = L + 1: RETURN 


1160 A(L) = A(L) 
= O THEN 1140 

1170 V = V(L):F = F(L):L = E + 

1: IF L=MTHENF=P(M- II): 

GOSUB 210: RETURN 

1172. c1ZF L< M- 2 THEN GOSUB 

1510 

1180 RETURN 


=): TF A(L) > 


As linhas 1020 a 1180 manipulam os 
movimentos da raposa. A sub-rotina 
que desenha o tabuleiro é usada para 
mostrar o posicionamento atual das pe- 
ças. Em seguida, verifica-se na linha 
1030 se a raposa ganhou. Feito isso, a 
rotina comprova na linha 1032 se há pe- 
lo menos um movimento legal para a ra- 
posa (caso contrário a vitória caberá aos 
gansos), 

Se o jogador estiver controlando a ra- 
posa, as linhas 1050 a 1070 receberão a 
jogada e verificarão sua validade. Se, ao 
contrário, quem estiver controlando a 
raposa for o computador, as linhas 1110 
a 1112 decidirão pelo movimento. O nú- 
mero de lances que está sendo analisa- 
do, M, e o lance que é analisado no mo- 
mento, L, são definidos na linha 1110. 
As linhas 1120 a 1180 avaliam qual a 
melhor jogada. 

Quatro matrizes são usadas nessa ro- 
tina: À contém o número de movimen- 
tos a serem analisados; V, o melhor re- 
sultado até o momento; P, a jogada que 
provoca tal resultado, e F indica a posi- 
ção prévia da raposa. 


COMO MOVER OS GANSOS 





500 LET V=0: FOR C=1 TO 4: LET' 
G=G(C): FOR A=1 TO Z(G): LET X 


=M(A,G): IF X<>F THEN IF NOT 
FN X(X) THEN RETURN 


502 NEXT A: NEXT C: LET V=l: 
RETURN 
1200 GOSUB 310: GOSUB 250 
1202 IF F>28 THEN PRINT AT 21, 
0;"A RAPOSA VENCEU 

"4 GOTO 1410 
1204 GOSUB 500: IF UV THEN PRIN 
T AT 21,0;"A RAPOSA VENCEU 

": GOTO 1410 

1210 IF PG THEN GOTO 1310 
1220 INPUT “QUE GANSO QUER MOVE 
A ?7";G: IF G=-1 THEN GOSUB 271 
O: GOTO 1202 
1225 GOSUB 4000 
1230 LET C=FN Z(G): IF C=0 THEN 
PRINT AT 21,0;"NÃO HA GANSO E 


M";G;"": GOTO 1220 
1240 INPUT "PARA ONDE ";I: IF 1 
=-| THEN GOSUB 2710: GOTO 1202 


1250 IF EN X(1) THEN PRINT AT 
21,0;"AI JA TEM UM GANSO |! 

"+ GOTO 1220 
1260 IF I=F THEN PRINT AT 21,0 
"AT JA TEM UMA RAPOSA 





um =, ii 





". GOTO 1220 
1270 FOR A=)] TO Z(G): 


IF M(A,G) 
=[1 THEN LET G(C)=I: GOTO 1010 
1280 NEXT A: PRINT AT 21,0;"1SS 
O E ILEGAL " 


GOTO 1220 
1310 LET L=8G: LET M=8G: LET VÍ 
M)j=H*M: IF M>4 THEN DIM H(HF+3 


): DIM S(HF+3) 

1312 GOSUB 1320: GOTO 1020 
1320 IF L=1 THEN GOTO 510 

1322 IF L<M-2 THEN GOSUB 1610: 


TF V<>0 THEN RETURN 
1324 LET L=L-1: LET VIL)=E*L: L 
ET C=1 


1330 LET C(L)=C: LET F(L)=G(C): 
LET A(L)=1: IF A(L)>Z(G(C)) TH 
EN GOTO 1362 


1340 LET B=M(A(L),F(L)): LET X= 
FN X(B): LET G(C)=B: TF X OR B= 
F THEN GOTO 1360 


LET C=C(L): IF 
LET P 


1350 GOSUB 1120: 
U<V(L) THEN LET V(L)=V: 
(L) =G (C)+C*32 


1355 IF V<V(L) THEN LET G(C)=F 


= 
a 


E 








iu 


(L): LET L=L+1l: RETURN 

1360 LET A(L)=A(L)+1l: IF A(L)S= 
Z(F(L)) THEN GOTO 1340 

1362 LET G(C)=F(L): LET C=C+1: 

IF C<5 THEN GOTO 1330 

1370 LET V=V(L): LET L=L+l: TF 

L=M THEN LET C=INT (P(L-1)/32) 
: LET G(C)=P(L-1)-C*32: GOSUB 2 
10: RETURN 

1372 IF L<M-2 THEN GOSUB 1510: 
RETURN 

1380 RETURN 


500 V==1:FOR C=1 TO 4:G=G(C): IF 
Z(G)<0 THEN NEXT:RETURN 

502 FOR A=0 TO Z(G):X=M(A,G):V= 
UV AND(FNX(X) OR X=F):NEXT A,C:R 
ETURN 

1200 GOSUB 250:KX=FNXX(F):YY=FN 
YY(F)+5:PUT(XX, LY)- (XX+19, YY+B) 
(FX, PSET 





1202 IF F>27 THEN PLAY VS: PRINT 


8&65,"A RAPOSA VENCEU" :GOTO 1410 
1204 GOSUB 500:IF V THEN PLAY V 
S:PRINT "A RAPOSA VENCEU” :GOTO 
1410 
1210 LINE(180,0)-(255,191),PRES 
ET,BF:IF PG THEN DRAW"BM18B0,50C 
4"+THS:GOTO 1310 | 
1220 XK=FNKX(G(1)):YY=FNTY(G(L) 
) :DRAW"BM180,8B0C2"+WGS:GOSUB 18 
10 
1225 G=4*INT(YY/20):G=FNCN(G) 
1230 C=FNZ(G):IF C=0 GOSUB 5000 
:GOTO 1210 
1240 DRAW"BM18BO,110C3”+MW53:GOSU 
B 1810:1=4*INT(YY/20): I=ENCN(I) 
1245 IF I=1 THEN PLAY VS: PRINT 
&7,"A RAPOSA VENCEU":GOTO 1410 
1250 IF FNX(I) GOSUB 5000:GOTO 
1210 
1260 IF I=F GOSUB 5000:GOTO 121 
0 
1270 FOR A=-1 TO Z(G):IF A>=0 T 
HEN IF M(A,G)=I THEN XX=FNXkK (G( 
C)):YY=FNYY(G(C)): PUTIXX, YY)-(X 





Co 85 PROGRAMAÇÃODEJOGOS 35 


X+19,YY+19),S0, PSET:G(C)=I:XX=F' 


NXX (ID) :YY=FNTYY(I):PUT(XX, YY+5)- 
(XX+19, YY+14),GS, PSET:A=Z(G):NE 
XT:GOTO 1010 

1280 NEXT:GOSUB 5000:GOTO 1210 
1310 L=8G:M=SG:V(M)=H*M:IF M>4 

THEN FOR A=0 TO HF:R(A)=0:NEXT 
1312 GOSUB 1320:G0T0O 1020 

1320 IF L=1 THEN 510 

1322 IF L<M-2 GOSUB 1610:IF V<> 
O THEN RETURN 

1324 L=L-1:V(L)=EXL:C=1 

1330 C(L)=C:F(L)=G(C):A(L)=0:IF 
A(L)>Z(G(C)) THEN 1362 

1340 B=M(A(L),F(L)):X=ENX(B):G= 
G(C):G(C)=B:IF X OR B=F GOTO 13 
60 


1350 GOSUB 1120:€C=C(L):IF V<VIL 
) THEN V(L)=V:P(L) =G(C)+C*32: IF 
V<V (L+1) THEN G=G(C):G(C)=F(L) 
“L=L+1: RETURN 

1360 A(L)=A(L)+I:IF A(L)<=Z(F(L 
1) THEN 1340 

1362 G=G(C):G(C)=F(L):C=C+1:IF 
C<5 THEN 1330 

1370 V=V(L):L=L+1:IF L=M THEN €C 
=INT(P(L-1)/32):G=G(C):G(C)=P(L 
-1) AND 31:GOSUB 210:RETURN 
1372 IF L<M-2 GOSUB 1510 

1380 RETURN 


ay 


S00 V=-1:FOR C=1 TO 4:G=G(C):IF 
Z(G)<0 THEN NEXT: RETURN 
502 FOR A=0 TO Z(G):X=M(A,G) :V= 
UV AND (FNX(X) OR X=F):NEXT:NEXT 
* RETURN 
1200 GOSUB 250:XX=ENXX(F) : TY=EN 
YY(F):PUT SPRITE FX, (KX,YY),6 
1202 IF F>27 THEN PLAYVS: FORK=1 
T0500:NEXT:SCREENO: PRINT"A RAPO 
SA VENCEU!":GOTO 1410 
1204 GOSUB 500:IF V THEN PLAYVS 
: FORK=1T0500:NEXT: SCREENO: PRINT 
"A RAPOSA VENCEU!”":GOTO 1410 
1210 LINE (188,0)-(255,191),11, 
BF:IF PG THEN PRESET (188,50):P 
RINTt1l,"Pensando":GOTO 1310 


1220 XX=FNXX(G(1)):YY=ENYY(G(1) 
): PRESET (188,80): PRINT&1,"Qual 
?":GOSUB 1810 

1225 G=4*INT((YY-2)/20):G=FNCN( 

G) 

1230 C=FNZ(G):1IF C=0 THEN GOSUB 
5000:G0TO 1210 

1240 LINE (188,0)-(255,191),11, 

BF:PRESET (188,80) :PRINT+1,"Par 
a ?":GOSUB 18B10:1T=4*INT((YY-2)/ 
20) : I=ENCN(I) 

1245 IF T=1l THEN PLAYVS:FORK=1T 

0500:NEXT: SCREENO: PRINT"A RAPOS 

A VENCEU!":GOTO 1410 

1250 IF FNX(I) THEN GOSUB 5000: 

GOTO 1210 

1260 IF I=F THEN GOSUB 5000:G0T 

O 1210 

1265 GS(FNZZ(G),1l)s=I 

1270 FOR A=-1 TO Z(G):IF A2=0 T 

HEN IF M(A,G)=1 THEN XX=ENXX (TI) 
“VY=ENYY(I):PUT SPRITE GS (FNZZ( 
1),0), (XX, YY),15:A=Z(G) :G(C)=I: 

NEXT:GOTO 1010 

1280 NEXT:GOSUR 5000:GOoToO 1210 
1310 L=86:M=8G:V(M)=H*M: IF M>4 

THEN FOR A=0 TO HF:R(A)=0:NEXT 

1312 GOSUB 1320:6070 1020 

1320 IF L=1 THEN 510 

1322 IF L<M-2 THEN GOSUB 1610:1T 
F V<>0 THEN RETURN 

1324 L=L-1:V(L)=E*L:C=1 

1330 C(L)=C:F(L)=G(C) :A(L)=0:IF 
A(L)>Z(G(C)) THEN 1362 

1340 B=M(A(L),F(L)) :X=FNX(B) :G= 
G(C):G(C)=B:IF X OR B=F THEN 13 
60 

1350 GOSUB 1120:€C=C(L):IF V<VIL 
) THEN V(L)=V:P(L)=G(C)+C*32:IF 
U<V(L+1) THEN G=G(C):G(C)=F(L) 
“L=L+1: RETURN 

1360 A(L)=A(L)+I:IF A(L)<=Z(F(L 
)) THEN 1340 

1362 G=G(C):G(C)=F(L):C=C+1:IF 
C<5 THEN 1330 

1370 V=V(L):L=L+1:IF L=M THEN C 

=INT(P(L-1)/32):6=G(C) :G(C)=P(L 

-1)AND31:GOSUB 210:RETURN 

1372 IF L<M-2 THEN GOSUB 1510 
1380 RETUAN 














500 V = 1: FOR C=1 TO 4!G=SsS 
(C): IF G(C) < O THEN NEXT : R 
ETURN 

502 FOR A = 0OTOZ(G):X = MIA, 
G):V = UV AND ( EN X(X) OR X = F 
): NEXT : NEXT : RETURN 


1200 GOSUB 250:XX = EN XX(F): 
YY = EN YY(F): DRAW FX AT XX + 
2.47 + B 

1202 IF F > 27 THEN PRINT VS: 
HOME : VTAB 22: PRINT "A RAPOS 
A VENCEU!": GOTO 1410 

1204 GOSUB 500: IF V THEN PRI 
NT VS: HOME : VTAB 22: PRINT "A 
RAPOSA VENCEU!": GOTO 1410 
1210 HOME : VTAB 22: IF PG THE 

N PRINT "PENSANDO...";: GOTO 1 
310 

1220 XX = EN XX(G(1)):YY = EN 
YY(G(1)): PRINT "MOVE QUAL GAN 

80?": GOSUB 1810 

1225 6 = 4 * INT O(YY/ 20):6 = 
EN CN(G) 

1230 € = FNZ(G): IFC=0 

N GOSUB 5000: GOTO 1210 
1240 HOME : VTAB 22: PRINT "MO 

VE PARA ONDE? ": GOSUB 1810:1 = 
q * INT (YY/ 20):1I = EN CNC 
1) 

1245 IF 1 = 1 THEN PRINT VS: 

HOME : VTAB 22: PRINT "A RAPOSA 
VENCEU!”": GOTO 1410 

1250 


THE 


IF EN X(TI) THEN GOSUB 5 








000: GOTO 1210 

1270 FORA= - 1 TO Z(G): IF 

A > =() THEN JIFM(A,G)=ITH 

EN XX = FN XX(G(C)):YY = ENT 
T(G(C)): HCOLOR= O: DRAW GS AT 

XX + Z,YY + S:G(C) = I:XX = EN 
XX(ID:YY = EN YY(T): HCOLOR= 
3: DRAW OS AT XX + 7,YY + 5:A = 
Z(G): NEXT : GOTO 1010 

1280 NEXT : GOSUB 5000: GOTO 1 
210 

1310 L = 86:M = SG:V(M) = H * M 
+ IF M> 4 THEN FOR A = 0 TOM 
F:R(A) = O: NEXT 

1312 GOSUB 1320: GOTO 1020 


1320 IF L = 1 THENÕGS1O 
1322 TF L<M- 2 THEN GOSUB 
1610: IF V < > O THEN RETURN 


1324 L = L- LIVIb) = E * LIC 


X 
1330 C(L) = C:F(L) = G(C):A(L) 


- O: IF A(L) > Z(G(C)) THEN 136 
2 

1340 B = M(A(L),F(L)):X = EN X 
(B):G = G(C):G(C) = B: IF X OR 
B = F THEN 1360 

1350 GOSUB 1120:€C = C(L): IF UV 


< V(L) THEN V(L) = V:P(L) = Gí 
Cro * 32 JN NWA VIL + 1) TA 
EN G = G(C):G(C) = F(L):L = L+ 
1: RETURN 
1360 A(L) = A(L) + 4: 
= Z(F(L)) THEN 1340 
1362 G = G(C):G(C) = F(L):C = C 
+ 1: IF € < 5 THEN 1330 
1370 VU = V(L):L = L+d: TF L = 
M THEN C = INT (P(L- 1) / 32 
J:G = G(C):MD = 32:G(C) = ENM 
D(P(L - 1)): GOSUB 210: RETURN 


IF A(L) < 


1372 
1510 
1380 RETURN 


IF L < M - 2 THEN GOSUB 


A rotina que vai da linha 1200 à li- 
nha 1380 é responsável pela manipula- 
ção dos gansos. Uma parte dela — li- 
nhas 1220 a 1290 — é utilizada quando 
o jogador controla os gansos. Quando 
esse controle cabe ao microcomputador, 
as linhas 1320 a 1380 encarregam-se da 
manipulação. 





MELHORES JOGADAS 


410 LET V=H: FOR A=X(F) TO 1 

STEP -1: LET X=M(A,F): IF EN X 
(X) THEN NEXT A: LET L=l: 

RETURN 

420 LET B=F: LET F=X: 

210: LET V=P: LET F=B: 
+ RETUAN 

510 LET 

G=G(C): 
530 

520 FOR 
16): IF 

NEXT A: 

528 LET 

LET B=X 

530 NEXT €C: LET G=G(D): 

D)=B: GOSUB 210: LET V=P: 

G (D) =G: RETURN 

410 V-=H:FOR AsX(F)TO O STEP -1: 

X=M(A,F):IF FNX(X)<O THEN NEXT: 

L=1:RETURN 

420 B=F:F=X:GOSUB 210:V=P:F=B:L 

=] :A=0:NEXT: RETURN 

510 V=E:FOR C=1 TO 4:G=G(C):IF 

-B(G)>V THEN 530 

520 FOR A=0 TO Z(G):X=M(A,G):IF 
FNX(X) OR X=F THEN NEXT:GOTO 5 
30 

528 V=B(X)-B(G):D=C:B=X 

530 NEXT:G=G(D) :G(D)=B:GOSUB 21 
O:V-=P:G(D)=G:IF 8G=1 THEN G(D)= 

B:C=D 

540 RETURN 


It 


410 V=H:FOR A=X(F) TO O STEP-1:. 
X=M(A,F): IF FNX(X)<O THEN NEXT: 
L=1:RETURN 

420 B=F:F=X:GOSUB 210:V=P:F=B:L 
=1:A=0:NEXT:RETUAN 


GOSUB 
LET L=1 

V=E: FOR C=1 TO 4: LET 
TF -B(G)>V THEN GOTO 


A=1 TO Z(G): LET X=M(A 
EN X(X) OR (X=F) THEN 
Goto 530 
V=B(X)-B(G): LET D=C: 
LET G( 
LET 





520 FOR A=0 TO Z(G):X=M(A,G): IF 
ENX(X) OR X=F THEN NEXT:GOTO 5 
30 

528 V=B(X)-B(G) :D=C:B=X 

530 NEXT:G=G(D) :G(D) =B:GOSUB 21 
O:V=P:G(D)=G: IF SG=1 THEN G(D)= 
B:C=D 

540 RETURN 


Lab Jc] 


410 V = H: FOR A = X(F) TO O ST 
EP - 1:X = M(A,F): IF EN X(X) 
< O THEN NEXT :L = 1: RETURN 


V são determinadas da forma já descri- 
ta. Nos dois casos, a instrução GOSUB 
210 escolhe o melhor movimento entre 
os que são avaliados. 


“A TABELA DE POSIÇÕES 





1510 GÓSUB 210: LET C=P | 
1520 LET C=C-INT ((C/HE+C)-C)XB 
F: IF C<Q OR C>=HF THEN GOTO 1 





420 B = F:F = X: GOSUB 210:V = 
P:F = B:L = 1:A = O: NEXT : RET 
URN 

510 V = E: FOR C = 1 TO 4:G =G 
(C): IF - B(G) > V THEN 5390 
520 FOR A = O TO Z(G):X = MIA, 


G): IF EN X(X) OR X = F THEN 
NEXT : GOTO 530 
528 V = B(X) - B(G):D = C:B = K 


530 NEXT :G = G(D):G(D) 
OSUB 210:V = P:G(D) = G: 
= 1 THEN G(D) = B:C = D: 
540 RETURN 


Essas sub-rotinas são usadas apenas 
quando o computador está nos meno- 
res níveis de dificuldade e analisam ape- 
nas o próximo movimento. 

As linhas 410 e 420 analisam todos 
os movimentos possíveis para a raposa, 
usando o mapa da matriz M, montada 
a partir da linha 2110. A sub-rotina de- 
volve um valor P (configuração após a 
melhor jogada) e um valor V (avaliação 
do melhor resultado). 

As linhas 510 e 530 funcionam de ma- 
neira similar às anteriores, só que se en- 
carregam dos gansos. As matrizes P e 


= BB: G 
IF SG 


520 

1550 FOR A=Ç+1 TO C+d: IF R(A)JS 
20 AND R(A)J<>2P THEN NEXT A: RE 
TURN 

1560 LET R(A)J=P: LET S(A)=V: RE 
TURN 

1610 GOSUB 210: LET C=P 

1620 LET C=C-INT ((C/HE+C) -C)*H 


F: IF C<0 OR C>=HF THEN GOTO 1 
620 
1650 FOR A=C+1 TO C+d: IF R(A)< 


>0 AND R(A)J<>P THEN NEXT A: LE 
T V=0: RETURN 

1660 LET V=S(A)J*(R(A)=P): RETUR 
N 


1510 GOSUB 210:C€=P 

1520 C=C-INT((C/HF+C)-C)*HF: IF 
C<0 OR C>=HF THEN 1520 

1550 FOR A=C TO C+C:IF R(A)<>20 
AND R(A)J<>P THEN NEXT: RETURN 
1560 R(A)J=P:;S(A)=V:A=C+C:NEXT:R 
ETURN 

1610 GOSUB 210:C=P 

1620 C=C-INT((C/HF+C)-C)*HF:IF 
C<0 OR C>=HF THEN 1620 

1650 FOR A=C TO C+C:IF R(A)<>20 
AND R(A)J<>P THEN NEXT:V=0:RETUR 
N 





1660 V=-S(A)J*(R(A)=P):A=C+C:NEX 
T:RETURN 

1810 SCREEN 1,0O:PUT(XX,YT)-(XX+ 
19,YY+19),80,NOT:FOR Z=1 TO 100 
“NEXT 

1820 PUT(XX, YY)-(XX+19,YY+19),5 
Q.NOT 

1830 KS=INKEYS:IF K$=""" AND YY 
>8 AND XX>B THEN YY=TY-20:XX=XX 
-20:GOTO 1810 

1840 IF KS=CHR$S(10) AND YY<129 
AND XX<129 THEN YY=TY+20:KK=KX+ 
20:GOTO 1810 

1850 IF KS=CHRS (8) AND XX>28 TH 
EN XX=XX-40:GOTO 1810 

1860 IF K$=CHR$S(9) AND XX<128 T 
HEN XX=XX+40:GOTO 1810 

1870 IF KS=CHR$S(13) THEN RETURN 
1875 IF K$="Q” THEN YY=0:KX=-12 
: RETURN 

1880 GOTO 1810 


Da 


“1510 GOSUB 210:€=P 
1520 C=C-INT((C/HE+C)-C)*HF: IF 
C<0 OR C>=HF THEN 1520 

1550 FOR A=C TO C+C:IF R(A)<>20 
AND R(A)J<>P THEN NEXT:RETURN 
1560 R(A)=P:S(A)=V:A=C+C:NEXT:R 
ETURN 

1610 GOSUB 210:C=P 

1620 C=C-INT((C/HF+C)-C)*HF:IF 
C<0 OR C>=HF THEN 1620 

1650 FOR A=C TO C+C:IF R(A)<>20 











AND R(A)<S>2P THEN NEXT:V=0:RETUR' 


N 

1660 V=-S(A)J*(R(A)=P) :A=C+C:NEX 
T:RETURN 

1810 LINE (XX, YY7-2)-(XX+19, YY+1 
2) ,144, BF:FOR Z=1 TO I00:NEXT 
1820 LINE (XX, YY-2)-(XX+I9, YY+ 
7) 3, BF:FOR Z=1 TO 200:NEXT 
1830 KS=INKEYS:IF KS=CHARS(30) A 
ND YY>218 AND XX>18 THEN YY=YY-2Z 
O:XX=XX-20:GOTO 1810 

1840 TF KS$=CHRS(31) AND YY<l4] 
AND XX<141 THEN YY=YY+20:KK=KX+ 
20:GOTO 1810 

1850 IF KS=CHRS(29) AND XX>38 T 
HEN XX=XX-40:GOTO 1810 

1860 IF KS5S=CHRS (28) AND XX<138 
THEN XX=KX+40:GOTO 1810 

1870 IF KS$=CHRS (13) THEN RETURN 
1880 GOTO 1810 


Caloi 


1510 GOSUB 210:C = P 

2520 C = C=>0INTIIC/ HE + CO) 
-C) * HF: IFC<OORC> = 
HF THEN 1520 


1550 “FOR A = CTO C++ C: IF B( 
A) S&S > 0 AND R(A) < > P THEN 
NEXT : RETURN 

1560 R(A) = P:S(A) = V:A = C + 
C: NEXT : RETURN 


L610 GOSUB 210:€ = P 

LOL EC — INT te 4 HF t4l) 
Cu * AF:IDER UR U OR Cm 
HF THEN 1620 


1650 FORA =CTOC+cCc: IFR( 








A) < > O AND RIA) < > P THEN 
NEXT :V = O: RETURN 

1660 V = S(A) * (R(A) = PJ:A = 
C + C: NEXT RETURN 

1810 XO = XX:YO = YY 

1820 HCOLOR= O: GOSUB 1890: HC 


OLOR= 3:X0 = KX:YQ0 = YY: GOSUB 
1890 

1830 GET KS: IF K$ = "A” AND Y 

Y > Y1l + 5 AND XX > X1 + 5 THEN 
7 = YY- 20:XX = XX - 20: GOT 

O 1820 

1840 TF K$ = "Z” AND YY<& Y2 - 
38 AND XX < X2 - 38 THEN YY = 
YY + 20:XX = XX + 20: GOTO 1820 


1850 IF K5 = CHARS (8) AND XX 
2 Xl + 21 THEN XX = XX - 40: GO 
TO 1820 

1860 IF K$ = CHAS (21) AND XX 
< X2 - 45 THEN KX = XX + d0: 6 
OTO 1820 

1870 IF K$ = CHARS (13) THEN 
HCOLOR= O: GOSUB 1890: RETUAN 


1880 GOTO 1820 

1890 HPLOT XO + 1,70 + 1 TO KO 
+ 19,70 + LL TO XO + 19,40 + 18 
TO X0 + 1,570 + 18 TO XO + 1,YO 
+ 1: RETUAN 


Nos níveis de maior dificuldade será 
necessário usar o algoritmo alfa-beta — 
veja o primeiro artigo da série (página 
872). Na verdade, ele já foi digitado co- 
mo parte das rotinas de movimentação 
da raposa e dos gansos. 

Antes de utilizá-lo, porém, o progra- 
ma verifica se ele é necessário no mo- 
mento — será o nível de dificuldade su- 
ficientemente alto para justificar o seu 
emprego? 

A rotina das linhas 1110 a 1150 cui- 
da da raposa, enquanto a rotina das li- 





nhas 1310 a 1350 dedica-se ao quarteto 
de gansos. 

O algoritmo é aplicado quando se 
executa o último teste IF, no fim das li- 
nhas 1150 e 1350, depois de V(M) ter si- 
do adequadamente definida, de acordo 
com o nível de dificuldade. 

O algoritmo alfa-beta é mais eficien- 
te quando o computador discrimina 
quais são os melhores movimentos rea- 
lizados inicialmente — para os gansos, 
o quadrado de número mais alto de ca- 
da fileira de quatro; para a raposa, O 
quadrado aberto a ela mais próximo do 
lado dos gansos. 

O algoritmo alfa-beta é usado em 
conjunto com uma tabela construida em 
função de movimentos que já foram 
considerados. Assim, o computador po- 
de se decidir mais rapidamente, quan- 
do se trata de uma jogada já estudada. 
Quanto maior for o tamanho da tabela 
que é possível montar no computador, 
mais rápido será O processamento. 

Inicializada nas linhas 2500, 2750 e 
2800, a tabela tem seu tamanho ideal de- 
finido por meio de valores teóricos. Ela 
foi dimensionada, no entanto, no limi- 
te da memória RAM disponível em ca- 
da microcomputador. 

A tabela é zerada nas linhas 1110 e 
1310; o conteúdo é verificado nas linhas 
1122 e 1322 e definido nas linhas 1172 
e 1372. 

O TRS-Color e o MSX usam um cur- 
sor para indicar as jogadas a serem exe- 
cutadas com as setas. O cursor do Ap- 
ple é movido para a esquerda e para a 
direita com as setas, e para cima € para 
baixo com as letras A e Z. 











A ARANHA 
MARCIANA (1) aiii 





Es = TT 


Uma enorme e assustadora aranha está 
pronta a atacar Freddy. Sem uma boa 
dose de precisão e sangue-frio, ele 

não escapará. Mas não se assuste: tudo 
não passa de um terrível pesadelo. 


O jogo A Aranha Marciana será mon- 
tado em dois artigos. Neste, os desenhos 
são definidos e o programa inicializado. 
No próximo, o jogo passa a funcionar, 
com a adição das últimas rotinas. 





| NELE Pe | 


O ponto inicial para a montagem de 
um jogo é a criação de algum tipo de en- 
redo, ou mesmo de um personagem em 
torno do qual a ação se desenvolva, 

Neste jogo, nosso personagem é 
Freddy, um limpador de janelas que tem 
um medo doentio de aranhas. Ele pro- 
curou vários especialistas que tentaram, 
em vão, curá-lo da fobia. O problema 
chegou a uma tal gravidade que Freddy 
passou a ter sempre o mesmo pesadelo. 
Nele aparecem uma aranha marciana — 
particularmente grande, faminta e de 
aparência horrível —, uma coleção de 
balões, um arco e uma flecha. 

Com frequência, ele acorda banha- 
do em suor, após ter sonhado que esta- 


va em sua escada, tentando desespera- 
damente flechar balões que, se atingis- 4 


sem a gaiola da aranha, acima de sua ca- 
beça, destravariam a porta que aprísio- 
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O “ENREDO” 
DEFINIÇÃO DOS GRÁFICOS 

FREDDY, AS FLECHAS, 
OS BALÕES E A ARANHA 
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Tu RE 








na o monstro, Ajude Freddy a estourar 
os balões, ou ele terá um trágico fim, co- 
mo almoço de uma horrenda aranha! 

Temos, assim, um enredo. Com re- 
lação aos pontos, eles serão dados para 
cada balão estourado. Mas, mesmo que 
Freddy consiga interceptar todos os ba-, 
lôes, seu problema não estará resolvido: 
a tortura continuará num nível de difi- 
culdade ainda maior com balões mais 
rápidos. Se deixar que três deles passem, 
a aranha marciana sairá da gaiola. 


O PROGRAMA 


Nosso jogo requer a animação de 
quatro figuras: a aranha, que se movi- 
menta na vertical e na horizontal; 
Freddy, que se move só na vertical; o ba- 
lão, que pode aparecer em qualquer 
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ponto da parte inferior da tela, mas que 
também se move na vertical, e a flecha. 
Esta normalmente se move na horizon- 
tal, mas acompanha o movimento ver- 
tical de Freddy. 

As figuras de maior interesse são a 
aranha e o balão. Muitas variáveis es- 
tarão associadas a elas, e será útil arma- 
zená-las em uma matriz unidimensional 
e usar uma constante como referência. 
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Além do movimento, precisamos de- 
finir o desenho de todas as diferentes fi- 
guras — animadas ou não — que apa- 
recerão na tela. Como nos melhores jo- 
gos de computador, elas devem ser co- 
loridas. Freddy será montado em um 
bloco gráfico de três por dois caracte- 
res. Usaremos outros blocos de dois por 
dois caracteres para definir a aranha, 
um balão inteiro e um balão estourado, 





dois caracteres para o desenho da flecha 
e mais dois para o da escada, Assim, te- 
remos no final cerca de 26 caracteres. 


A primeira parte do programa defi- 
ne os gráficos e inicializa O jogo. 





“DEFINIÇÃO DOS GRÁFICOS 


DIM m(7) 
LET vpos=2: LE 
LET c 


1000 DIM b(6): 
1010 LET xpos=l: 
T colour=3: LET points=á: 





| | | | | | 
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ount=5: LET maxcount=6 
1020 LET xinc=3: LET vinc=dá: LE 
T pictures? 

1030 LET dest=65288 
1040 FOR i=0 TO 26*B-1: 
POKE dest+i,5j: NEXT à 
1050 DATA 15,63,127,255,255,255 

(255, 127 
1060 DATA 240,252,254,255,255,2 
464,255,25d 


READ 3: 


1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,2 
24,192,96 

1090 DATA 32,96,255,255,96,32,0 
0 

1100 DATA 5,10,252,252,10,5,0,0 
1110 DATA 1,64,17,40,16,0,0,161 
1120 DATA 128,2,136,20,8,0,0,13 
3 

1130 DATA 161,0,0,16,50,17,64,1 
1140 DATA 133,0,0,8,20,136,2,12 
1150 DATA 48,48,48,48,111,111,4 
8,48 

1160 DATA 12,12,12,12,246,246,1 
AB o. 

1170 DATA 7,31,49,57,127,112,23 
7,255 

1180 DATA 224,248,140,204,254,] 
4,183,255 

1190 DATA 127,59,51,99,115,35,6 
(12 

1200 DATA 254,108,102,51,49,25, 
24,48 

1210 DATA 7,31,49,51,127,112,23 
5,255 

1220 DATA 224,248,140,156,254,1 
4,215,255 

1230 DATA 127,51,50,27,25,50,11 
2,224 

1240 DATA 254,204,108,102,54,22 
53,6 

1250 DATA 15,31,19,55,55,63,63, 
15 

1260 DATA 240,248,248,252,252,2 
52,252,240 

1270 DATA 251,219,139,219,219,2 
51,247,239 

1280 DATA 252,254,254,254,254,2 
54,254,252 

1290 DATA 95,127,31,31,31,63,12 
7,127 

1300 DATA 188,188,188,188,188,1 
24,252,248 

1310 LET hiscore=0 

1320 RETURN 


1000 DIM B(6),8S(7),NUS(9) 

1010 XP=1:7TP=2:PO=4:CT=5:MC=6 
1020 XI=3:YI=4:PI=7 

1022 DIM AD(14),EF(4),E(4),6J(/ 
) KL(4),MP(7),QT(7) UZ(14),5SP(7 
),81(4),52(7),BL(4) 

1023 PMODE 4,1:PCLS1:SG=PEEK (18 
B)*256 

1024 GOSUB 1500 

1025 GET(0,0)-(15,23),AD,G:PCLS 
1 

1026 GOSUB 1520 


1027 GET(0,0)-(15,7),EF,G:-GET(O, 


(0)-(7,7),E,6:PCLS1 
1028 GOSUB 1500 
1029 GET(0,0)-(15,15),6J,6G:PCLS 
! 
1030 
1031 
1032 
1033 
1 
1034 
1035 
1 
1036 GOSUB 1500 
1520:56G=86G-512 
1037 GET(0,0)-(15,23) 
1 


GOSUB 1520 
GET(0,0)-(15,7),KL,G:PCLS] 
GOSUB 1500 
GET(0,0)-(15,15),MP,G:PCLS 


GOSUB 1500 
GET(0,0)-(15,15),0T,G:PCLS 


:8B6=5G+512:GOSUB 
5UZ,G: PCLS 


1038 GET(0,0)-(15,15),8P,G 

1039 GET(0,0)-(7,7),851,6 

1040 GET(0,0)-(15,7),82,6 

1041 PCLSO:GET(0,0)-(7,7),BL,G 
1050 DATA 15,63,127,255,255,255 
(255, 127 

1060 DATA 240,252,254,255,255,2 
55,255,254 


1070 DATA 
1080 DATA 


127,63,63,31,15,7,3,6 
254,252,252,248,240,2 


24,192,96 
1090 DATA 
10 
1100 
1110 
1120 
3 
1130 
1140 
8 
1150 
8,48 
1160 
2,12 
1170 
7,255 
1180 DATA 224,248,140,204, 
4,183,255 
1190 DATA 
, 12 

1200 DATA 
24,48 
1210 
5,255 
1220 DATA 
4,215,255 
1230 DATA 
2,224 

1240 DATA 
13,6 

1250 DATA 
15 

1260 DATA 
52,252,240 
1270 DATA 251,219,139,219,219,2 
51,247,239 

1280 DATA 252,254,254,254,254,2 
54,254,252 

1290 DATA 95,127,31,31,31,63,12 
7,127 

1300 DATA 16868,168B,188,188,188,1 
24,252,248 

1310 HS=0 

1320 RETURN 

1500 FOR CL=0 TO 1:FOR CH=0 TO 


32,96,255,255,96,32,0 
DATA 5,10,252,252,10,5,0,0 
DATA 1,64,17,40,16,0,0,161 
DATA 128,2,136,20,8,0,0,13 


161,0,0,16,40,17,64,1 
133,0,0,8,20,136,2,12 


DATA 
DATA 


DATA 48,48,48B,48,111,111,4 


DATA 12,12,12,12,246,246,1 


DATA 7,31,49,57,127,112,23 
254,1 
127,59,51,99,115,35,6 
254,108,102,51,49,25, 


DATA 7,31,49,51,127,112,23 
224,248,140,156,254,1 
127,51,50,27,25,50,11 
254,204,108,102,54,22 
15,31,19,55,55,63,63, 


240,248,248,252,252,2 


1:FOR L=0 TO 7:READ J:POKE SG+C, 


L*256+CH+L*32,255-J:NEXT L,CH,C 
L 

1510 RETURN 

1520 FOR CH=0 TO 1:FOR L=0 TO 7 
:READ J:POKE SG+CH+L*32,255-J:N 
EXT L,CH 

1530 RETURN 

1600 DATA R6DBLGUBBRS, BRONDEBRZ 
, R6D4L6D4R6BR2BUB, R6D4NL3D4ANL6B 
R2BUB, DAR6D4AUSBR2, NR6D4R6D4LGBE 
8 

1610 DATA DER6U4LGU4BRS, R6NDBBR 
2,R6DBL6UBDAR6U4BRZ, DAR6DAUSLOB 
RB 

1620 FOR I=0 TO 9:READ NUS(I):N 
EXT 

1625 DRAW"C1;S2” 

1630 RETURN 

1650 N$=STR$ (NU) :FOR 12=2 TO LE 
N (NS) 

1660 DI=ASC (MIDS (N$,12,1))-48:D 
RAW NUS (DI) +"BR2” :NEXT 12:RETUR 
N 

1700 COLOR O:LINE (178,2)-(200, 
7) , PSET,BF:NU=HS:DRAW"C1;BM178, 
2” :GOSUB 1650: RETURN 


pt 


1000 DIM B(6),5(7):SCREEN2,2 

1005 Al=1:A2=2:BA=3:BE=4:FD=5:F 
L=6 
1010 
1020 
1030 
1040 
1050 
1060 


XP=1]:YP=2:PO0=4:CT=5:MC=6 
XI=3:YI=4:PIi=/ 

FOR I=l TO 6:AG="" 

FOR J=1 TO 32 

READ A:AS=AS+CHAS (A) 
SPRITES (I)J=AS 

1070 NEXT:NEXT 

1100 DATA 0,0,0,0,7,13,31,18,15 
+10,10,18,10,2,4,0,0,0,0,0,208, 
176,248,72,240,80,80,72,80,64,1 
28,0 

1110 DATA 0,0,0,0,7,13,31,18,1 
5,10,10,9,8,8,4,0,0,0,0,0,208,1 
76,248,72,240,80,80,144,16,16,8 
Q 

| 

H+120 DATA 0,0,0,3,15,31,31,31, 
15,153,7,3,3,1,0,0,0,0,0,192, 240 
| 248,248,248,240,240,224,192,19 


2,128,0,0 

1130 DATA 0,0,0,0,8,4,0,13,1,0 
,/4,4,8,0,0,0,0,0,0,16,32,0,0,12 
8,152,0,64,32,0,0,0,0 

TIGO DATA: 0,37, def cid AS 
15,15,7,3,2,2,1,0,192,224,224,1 
92,128,224,240,240,240,240,224, 

192,192,192,12B 

1150 DATA 0,0,0,0,0,0,16,112,2 
55,112,16,0,0,0,0,0,0,0,0,0,0,0 
(0,46; 240,16, 8,0,0,0,0,0 


1310 HS=0 
1320 RETURN 


Esta parte do programa lê os dados 
das linhas DATA para montar os blocos 
gráficos (UDG ou sprites) do balão e da 
aranha nas matrizes B (ou b)e S (ou s), 
que são dimensionadas na linha 1000. 

As linhas 1010 e 1020 definem os va- 
lores iniciais para os apontadores das 
















rem montados. As linhas 1030 a 


1040 (até 1070, no MSX) fazem io? 


Yo Lua E 


e montam os blocos gráficos. Fi- * 
nalmente, a linha 1310 define o re- 
corde como O. Essa linha é execu- *& 
tada apenas uma vez. O programa 
para o TRS-Color inclui uma roti- 
na a mais, que começa na linha 1600. 


a leitura dos dados em DATA 3 


Sua função é desenhar números na tela 


de alta resolução. 
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3000 LET ecore=0: LET level=l 
3010 LET my=15 

3020 LET bl=15+5*level: LET ax= 
29: LET av=l16: LET dead=0: LET 
props=3 

3090 GOSUB 5000 

3150 PAPER O: BORDER O: CLS 
3160 FOR x=0 TO 28: PRINT AT 3, 

x; INK O; PAPER 6;" ":;AT 0,x;" 
". NEXT x: GOSUB 6000 

3170 POKE 23607,60: PRINT AT O, 
O; INK O; PAPER 6;"N=";level;” 
B=";bl;” ";"SC=";score;AT 0,2 
0;"RE=";hiacore 

3180 POKE 23607,252 

3190 FOR v=5 TO 21: PRINT AT y, 
30; INK 6;"k1l”: NEXT y 

3200 POKE 23607,252 

3210 GOSUB 4000 

3220 GOSUB 4200 

3240 RETURN 


3000 SC=0:LV=] 

3010 MY=15 

3020 BL=15+5*LV:AX=29:AY=16:DD= 
O: PP=3 

3090 GOSUB 5000 

3150 PMODE 4,1:COLOR 0,1:PCLS:S 
CREEN 1,1 

3160 FOR X=0 TO 2B:PUT(X*8B,24)- 
(X*8+7,31),BL, PSET: PUT(X*8,0)-( 
X*8+7,7),BL, PSET:NEXT X:GOSUB 6 
000 

3165 DRAW"S4;BM2,2;C1;D4R3BRAZ2BU 
1A2BUlLZ2; BM4B, 2; DAR4UZ2L4RI3UZLIB 
R6BD2R2BD1L2;BM100,2;L4D2ZR4DZLA4 
BR6NR4U4R4; BM160, 2; DAUZRADZU4A BR 
2R4L2D4L2R4;52" 

3170 DRAW"C1;BM14,2;"”:NU=LV:GOS 
UB 1650 


3171 DRAW"BM58,2;":NU=BL:GOSUB | 


1650 

3172 DRAW"BM1l14,2;":NU=SC:GOSUB 
1650 

3173 DRAW"BM178,2;":NU=HS:GOSU 
1650 

3190 FOR Y=5 TO 21:PUT(240,Y*8) 

- (255, Y*8+7),KL, PSET:NEXT Y 
3210 GOSUB 4000 


matrizes, antes dos UDG ou sprites se- « a 


a 


A E 3220 GOSUB 4200 
3240 RETURN 


3000 SC=0:LV=1 


3010 MY=16 

ad 3020 BL=15+5*4LV:AX=29:AY=16:DD= 
| = so 0:PP=3 
FZ 3090 GOSUB 5000 


3160 LINE (0,0)-(231,31),6,BF:L 
| INE (0,7)-(80,24),14,BF:LINE (8 

x 7,7)-(152,24),14,BF:LINE (159,7 

| )-(224,24),14,BF 

| º 3170 GOSUB 1700 

x Fa 3180 GOSUB 6000 

A fe 3190 LINE (240,31)-(240,190),1: 

RÃS e LINE (255,31)-(255,190),1:FOR I 
ta o =2 TO 15:LINE (240,1*16)-(255,1 

*16),1:NEXT 

3210 GOSUB 4000 

3220 GOSUB 4200 

3230 RETURN 

As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nível de dificulda- 
de em | e definem uma série de variá- 
veis auxiliares. A linha 3150 determina 
as cores da tela (menos no MSX) e as 
linhas 3160 a 3170 exibem o placar e ou- 
tras informações necessárias. 

O programa do Spectrum inclui um 
POKE na linha 3170 e outro na 3180. 
A posição de memória 23607 guarda o 
apontador do conjunto de caracteres. 
Normalmente, ela tem o valor 60, que 
aponta para o conjunto de caracteres da 
ROM. Nesse programa, entretanto, o 
valor colocado no endereço 23607 para 
indicar a posição dos caracteres é 252. 
Isso permite ao computador usar as le- 
tras minúsculas, além das maiúsculas e 
dos números, como gráficos. 

O programa reserva uma área da me- 
mória usando CLEAR e ali coloca os 
UDG. Devido ao seu efeito sobre as sub- 
rotinas, esse comando deve ser utiliza- 
do no programa principal, o que fare- 
mos na segunda parte do jogo. Portan- 
to, se você quiser executar as linhas aqui 
apresentadas, digite antes CLEAR 
65287. 

A linha 3190 se incumbe de desenhar 
a escada, e as sub-rotinas chamadas nas 
linhas 4000 e 4200 desenham, respecti- 

amente, Freddy e a aranha. 





] Pad 









FREDDY E A FLECHA 





4000 INK 7: PRINT AT my,30;"uv”, 
AT my+1,30;"wx";AT my+2,90;"yz 
"+. IF ax=29 THEN PRINT AT av,a 
x1"e" 1 

4010 RETURN 

4110 INK 7: PRINT AT ay,ax;"ef” 
: RETURN 
































RG=RND (6)-1 

B (XP) = (4*RG) +RND (4)-1 
B(YP)=2Z0 

B (MC) =5-LV 

B(CT)=1 

B(PO)=10-RG 

RETURN 










































4000 PUT(240,MY*8)-(255,MY*B+23 
)  UZ, PSET:IF AX=29 THEN PUT(AX* 
B,AY*B)- (AX*B+7,AY*8+7),E, PSET 
4010 RETURN 

4110 PUT(AX*B,AY*B)-(AX*B+15,AY 
*8+7) , EF, PSET:RETURN 


io 


4000 PUT SPRITE 2, (240,MY*8),1, 
FD: IF AX=29 THEN PUT SPRITE 3,( 
AX*B,AY*8B),4,FL 

4010 RETURN 

4110 PUT SPRITE 3, (AX*8,AY*B),4 
| FL* RETURN 


Essa rotina desenha Freddy sobre a 
escada e sua flecha. A posição do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 4110 na posição da 
tela indicada pelos valores de AX e AY. 





A ARANHA MARCIANA 


4200 

4250 
42100 PRINT AT sí(vpos),s(xpoB);" 
nn":AT s(ypos)+1],s(xpos);"op”: 

RETURN 

4250 PRINT AT sí(ypos),s(xpos);” 
ar":;AT s(vpos)J+1l,s(xpos);"BL”: 

RETURN 


4200 X2=S(XP)*B:Y2=S(YP)*B:IF S' 
(PI)=1 THEN 4250 


[IF s(picture)=1] THEN GOTO 


As figuras montadas pelo programa tal como aparecem na tela 
dos microcomputadores da linha Spectrum. 


4210 PUT(X2,Y2)-(X2+15,Y72+15),M 
P, PSET: RETURN 
4250 PUT(XZ,Y2)-(K2+15,72+15),0 
T, PSET: RETURN 


a 


4200 X2=S(XP)*B:Y2=5(YP)*8:IF S' 


(PI)=1 THEN 4250 
4210 PUT SPRITE 1, (X2,Y72),12,A1 
: RETURN 
4250 PUT SPRITE 1, (X2,Y2),12,A2 
: RETURN 

A rotina que desenha a aranha se as- 
semelha à anterior, exceto num detalhe: 
duas imagens são usadas para essa figu- 
ra. Colocadas alternadamente no mes- 
mo lugar da tela, pelas linhas 4210 e 
4250, simulam o movimento das pernas 
da aranha. 


SOBEM OS BALÕES 





4300 PRINT AT b(vpos),b(xpos); 
BRIGHT 1; INK b(colour);"ab";AT 
b(vpos)+1l,b(xpos);“cd”: RETURN 


5000 LET 
5010 LET 
(AND* 4 ) 
5020 LET 
5030 LET 
5040 LET 
5050 LET 
a 
5060 
5070 


4300 X2=B (XP) *B:Y72=B(YP)*8: PUT( 


range=INT (AND*6) 
b (xpos)=(d*range)+INT 


b(vypos)=20 

b (maxcount)j=5-level 

b (count)=1 
b(colour)=INT (RND*5)+ 


LET b(points)=1l0-range 
RETURN 


K2,72)-(X2+15,Y72+23),AD, PSET:RE, 


4300 X2=B(XP)*8:Y2=B(YP)*B:PUT 
SPRITE 4, (X2,Y72),9,BA:RETURN 
5000 RG=INT(AND(1)*6) 

5010 B(XP)=(4*RG) +INT (RND(1)*5) 
5020 B(YP)=20 

5030 B(MC)=5-LV 

5040 B(CT)=1 

5050 B(P0)=10-RG 

5070 RETURN 


A linha 4300 simplesmente desenha os 
balões na tela. As linhas restantes encar- 
regam-se de inflar um balão toda vez que 
um outro estourar ou alcançar a gaiola 
da aranha (os balões podem aparecer em 
qualquer um dos seis pontos da parte in- 
feror da tela, flutuando em seguida pa- 
ra cima, na direção vertical. A variável 
MAXCOUNT (ou, ainda, maxcount ou 
MC, conforme o computador) determi- 
na o quanto o balão se moveu, ou seja, 
o nível que ele atingiu. Em seguida, o 
programa define a cor do balão e seu va- 
lor em pontos. Este dependerá de sua 
proximidade da escada de Freddy. 





AS PORTAS 


6000 IF level<>1 THEN POKE 236 
07,60: PRINT AT a(ypos),e(xpos) 


: “;AT e(lvpos)+l,B(xpos);”" * 
POKE 23607,252 


6010 FOR x=10 TO 30 STEP 9 
6020 PRINT INK G;AT 1L,x;"";AT 
EMT 


6030 NEXT x 

6040 LET s(xpoB)=l1: 
=]: LET gs(xinc)=1: 
O: LET as(count)=á: LET s(maxcou 
ntj=4: LET am(picture)=l 

6050 RETURN 


5000 IF LV<>1 THEN X2=S(XP)*B:Y 
2=5 (YP) *B:PUT(X2,Y2)-(X2+15,Y72+ 
15) ,8P, PSET 

6010 FOR X=10 TO 30 STEP 9 

6020 PUT(X*8,8)-(X*8+7,15),BL,P 
SET: PUT (X*8,16)-(X*8+7,23),BL,P 
SET 


6030 NEXT X 
6040 S(XP)=1:S(YP)=1:5(XI)=1:S(, 


LET Bíypos) 
LET a(vyinc)= 





YI)=0:S(CT)=4:S(MC)=4:S(PI)=1 
6050 RETURN 


ny 


6000 S(XP)=1:S(YP)=1:S(XT)=1:S(: 
Y1)=0:S(CT)=4:S(MC)=4:S(PI)=1 
6010 RETURN 

Três portas fecham a gaiola da ara- 
nha, para mantê-la presa. Os usuários 
do Spectrum notarão que o caractere lis- 
tado como ? é, de fato, um quadradi- 
nho gráfico, obtido com a tecla 8 em 
modo gráfico. 


CE A 


A primeira seção do programa defi- 
ne os gráficos e inicializa o jogo. 


A INICIALIZAÇÃO 


1000 DIM B(6),8(7),NUS(9): SCA 
LE= 1: ROT= O: HCOLOR= 3 

1010 XP = 1L:YP = Z:PO = 4:CT = 
S:MC = 6 

1020 XI = 3:YI = 4:PI = 7 

1025 Al = 1:AZ = Z:BA = 3:BÊ = 
4:ED = 5:FL = 6 

1030 DATA 6,0,14,0,75,0,136, 
Deli 2t,1,450B,d 

1040 DATA 45,45,45,45,77,58, 


63,63,63,63,63,63,55,17/3,240 
1050 DATA 43,45,45,44,45,53,4 
5,97,45,62,54,63,63,63,63,63,63 
«188 

1060 DATA 10,62,62,62,54,109, 
145,37,37,36,36,100,73,17,54,54 


1070 DATA 54,53,109,193,193,1 
93,45,36,39,39,36,0 

1080 DATA 45,45,45,45,117,57 
,63,63,63,63,63,63,55,45,222 
1090 DATA 45,45,37,45,45,46,4 
5,44,53,55,62,63,63,63,63,63,39 
AS 

1100 DATA 49,54,62,62,62,79,/ 
3,72,1,193,193,39,39,108,/3 
1110 DATA 9,54,55,183,74,73,7 
3,39,39,39,36,36,0 

1120 DATA 45,45,45,53,63,63, 
63,63,55,45,45,45,45,45,44,54 
1130 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,494,54,63 


1140 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,53,63 
1150 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,53,63,63 
(63 

1160 DATA 63,63,63,63,46,45, 
45,45,45,45,45,62,63,63,63,63,6 
13 

“1170 DATA 55,45,45,45,45,45,5 
3,63,63,63,63,63,46,45,45,45,45 
(62 

1180 DATA 63,63,63,55,45,45,4 
5,53,63,63,55,62,87,73,73,8,399, 
4,0 


1190 DATA 46,110,9,44,172,146 
,57,223,219,59,191,146,45,37,77 
(9,53,46,45,0 

1200 DATA 45,45,45,53,63,63, 
63,63,46,45,45,45,45,44,54,63 
1210 DATA 63,63,63,63,46,45,4 
5,45,45,62,63,63,63,55,45,45 


1220 DATA 45,45,222,63,63,62, 
63,63,46,45,45,37,45,45,45,45,5 
3,63,63 

1230 DATA 63,63,62,63,63,63,4 


6,45,45,45,37,45,45,45,53,63 
1240 DATA 63,63,62,63,63,63 
,63,46,45,45,45,45,45,44,45,53 
1250 DATA 63,55,62,63,63,63,6 
3,60,54,45,45,45,45,45,62,63,63 


1255 DATA 63,63,46,45,45,45,5 
3,63,63,63,63,46,45,45,45,62,63 
163,55 

1260 DATA 45,45,45,62,63,63,4 
6,45,45,62,63,63,55,45,45,45,5, 
Ô 

1270 DATA 45,44,54,119,33,36 
,44,54,54,37,36,172,42,45,45,45 
45,5,0 


1280 FOR 1 = 16384 TO 16816: R 

EAD C: POKE I,C: NEXT 

1290 P = 233: POKE P,64: POKE P 
- 1,0 

1300 HS = 0 

1310 RETURN 


Essa parte do programa lê os dados 
das linhas DATA para montar, nas ma- 
trizes B e S (dimensionadas na linha 
1000), os blocos gráficos do balão e da 
aranha. 

As linhas 1010 a 1025 determinam os 
valores iniciais para os apontadores das 
matrizes. As linhas 1280 a 1290 fazem 
a leitura dos dados em DATA (linhas 
1030 a 1270) e a montagem dos blocos 
gráficos. Finalmente, a linha 1310 defi- 
ne o recorde como 0. Essa linha será exe- 
cutada apenas uma vez. 

Adicione agora este programa: 
3000 SC = O:LV = 1 
3010 MY = 15 
3020 BL = 15 + 5 * LU:AX = 28:A 
Y = 16:DD = O:PP = 3 


3090 GOSUB 5000 
3150  HGR GOSUB 1700 
3160 FOR Y = 0 TO 3: HPLOT 0,Y 


TO 234,Y: HPLOT 0,Y + 23 TO 23 
4,7 +: 23: NEXT 


3170 FOR X = O TO 3: HPLOT X + 
77,3 TO X + 77,23: HPLOT X + 1 
54,3 TO X + 154,23: HPLOT X + 2 
31,3 TO X + 231,23: NEXT 


3175 GOSUB 6000 

3180 HPLOT 235,25 TO 235,160: 
HPLOT 255,25 TO 255,160 

3210 GOSUB 4000 

'3220 GOSUB 4200 

3240 RETURN 


As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nível de dificulda- 
de em 1 e definem uma série de variá- 
veis auxiliares necessárias ao jogo. As 
linhas 3160 a 3180 mostram o placar e 





outras informações. A linha 3190 dese- 
nha a escada, e as sub-rotinas chama- 
das nas linhas 4000 e 4200 desenham, 
respectivamente, Freddy e a aranha. 
A rotina seguinte desenha Freddy na 
escada e sua flecha. A posição do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 4110 na posição da 
tela indicada pelos valores de AX e AY. 


4000 DRAW FD AT 240,MY * B: IF 


AX = 28 THEN DRAW FL AT AX * 
BAY * B 

4010 RETURN 

4110 DRAW FL AT AX * BAY * B: 
RETURN 


“A ARANHA MARCIANA 





4200 X2 = S(XP) * 8:Y2 = S(YP) 
* 8: IF S(PI) = | THEN 4250 

4210 DRAW AL AT X2,72: RETURN 
4250 DRAW AZ AT X2,72: RETURN 


A rotina que desenha a aranha é muli- 
to parecida com a anterior, exceto por um 
detalhe: duas imagens são usadas para es- 
sa figura (Al e A2). Elas são colocadas 
alternadamente no mesmo lugar da tela, 
pelas linhas 4210 e 4250, simulando que 
as pernas da aranha se movem. 


4300 X2 = B(XP) * B:Y2 = (B(YP) 
+ 1) * 8: HCOLOB= O: DRAW BA A 

T X2,Y2: HCOLOR= 3:Y2 = B(YP) * 
B: DBAW BA AT X2,Y2: RETURN 


5000 RG = INT ( RND (1) * 6) 
5010 B(XP) = (4 * RG) + INT ( 
BND (1) * 5) 

5020 B(YP) = 20 

5030 B(MC) = 5 - LV 

5040 B(CT) = 1 

5050 B(PO) = 10 -—- RG 

5070  RETUAN 


A linha 4300 desenha os balões na te- 
la. As linhas restantes encarregam-se de 
inflar um balão toda vez que um deles 
estourar ou alcançar a gaiola da aranha. 

Os balões aparecem em qualquer um 
dos seis pontos da parte inferior da te- 
la, flutuando em seguida verticalmente, 
A variável MC determina o nivel que o 
balão atingiu. Por fim, o programa es- 
tabelece o valor, em pontos, do balão, 
segundo sua proximidade da escada. 

A rotina final dessa parte do jogo é 
responsável pela contagem do número 
de portas (máximo de três) que estão 
mantendo a aranha dentro da gaiola, 
6000 IF LU < > 1 THEN X2 = sS( 


XP) * B:Y2 = S(YP) * 8: DRAW AL 
GUMACOISA 


6040 S(XP) = 1:S(YTP) = 1:5(X1I) 
= 1:S8(YT) = 0:S(CT) = 4:S(MC) = 
4:S(PI) = 1 

6050 RETURN 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INannnNO PRÓXIMO NÚMEROHHEEEEHHI! 


PROGRAMAÇÃO BASIC 


O uso de rotinas em código de máquina dentro de programas 
BASIC. Os comandos USR e DEFUSR. Armazenagem de rotinas USR. 


PERIFÉRICOS 
Os diferentes tipos de tabletes gráficos. Digitalização e mapeamento. 
Geração de sinais. Sensores de superfície. 


PROGRAMAÇÃO DE JOGOS 


Programe uma colônia de bactérias em código de máquina. 


CÓDIGO DE MÁQUINA 


A rotina principal de Avalanche. Acertos iniciais. 


PROGRAMAÇÃO DE JOGOS 
Complete o jogo 4 Aranha Marciana, listando 
as rotinas de animação. 


/ 
a 
de ' 


AY 
A 


HOVAS 
tl 
Cad 


AMP 





